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Ztitle "TERMINAL = Terminal Handling Routines 
module terminal ( 
ident='V04-000") = begin 


oOo 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


!® TRANSFERRED. 


i® THE INFORMATION IN THIS SOFTWARE IS SUBJE 
is AND SHOULD NOT BE CONSTRUED AS A COMM 
it CORPORATION. 


CT 
IT 


!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
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Facility: VAX/VMS Telephone Facility, Terminal Handling Routines 


te 


0 

0 Abstract: This module provides all of the routines necessar 

0 handle the user's terminal. This includes both t 

0 keystroke handling routines and the screen formatting 

0 functions. 

: 

0 Environment: We do not check the status returns from RTL screen package 
routines. This saves code and time. 

ope Author: Paul C. Anagnostopoulos, Creation Date: 24 November 1980 


OOee Modified By: 

0046 v03-003 PCA1020 aul C. Anagnostopoulos 24-May-1983 
0047 7 ChETEMPE lags. 

0048 Support 8-bit characte 

0049 Check SYSSINPUT to somes that it is a terminal. 


Fixed FAO argument check in PHNSINFORM, 


mee ee ek a ee ee ed ed od od = = 8 = = = od = 3 3 2 = 
-_ 
+ 
+ 


v03-002 mn00es Mark Bramhall 17-Jan-1983 


v03-001 PCA0048 Paul Anagnostopoulos 26-Mar-1982 
Minor changes to convert from process name to user name. 
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eee NAL TERMINAL = Terminal Handling Routines 1o~300" 1 38+ 96:18:42 

v04-000 Module Declarations 14-Sep-1984 12:55:34 

>; 0057 1 Xsbttl "Module Declarations' 

' 2 0058 1! : ; 

; 60 0059 1 ! Libraries and Requires: 

; 6 |68T 0060 1! 

; § 0061 1 | ; 

$6 6G BReg 1 Library ‘sys$library:starlet.l32'; 

; © 0065 1 require 'phoneregq'; 

; 65 B36 1 

;. 0393 1! 

; 0394 1 ! Table of Contents: 

; 0395 1! 

; ww Ree 1 : 

; £0 0397 1 forward routine 

i ee 0398 1 phn$init_term, 

: 72 0399 1 phn$term_characteristic, 

Oe 0400 1 phn$kbd_enable: novalue, 

; 0401 1 phn$kbd_get: novalue, 

: 75 0402 1 phn$fresh_screen 

: 76 04035 1 phn$inform: novalue, 

: off 0404 1 phn$review,— 

: 78 0405 1 phn$fresh_view: novalue, 

5 79 0406 1 phn$fresh_hold: novalue, 

; 80 0407 1 phn$show_text: novalue, 

; «BT 0408 1 phnsscrott prep: novalue, 

; @ 0409 1 phn$scroll_line: novalue; 

3; 8 0410 1 

; (4 0411 1! -_ 

; we 0412 1 ! Macro Definitions: 

; 04135 1! 

; of 0414 1! 

3 3 get? : ! This macro is used in PHN$SHOW_TEXT to add a new CTL to a PUB. 

;: M0417 1 macro add_new_ctl(text) = 

See M0418 1 ( phn$make_ctl(text,c); 

; 692 M0419 1 insque(.c,dpCpub_q_ctlhead0)); 

: 95 M0420 1 inc (dpCpub_lt_ctTcount]); _ 

: 694 M0421 1 latest_line_dsc = cl{ctl_q_line); 

.. M0422 1) 

:; 8496 04235 1 &: 

s oF 0424 1 

; | «698 0425 1! 

; WW 0426 1 ! External References: 

: 100 0427 ‘1! 

s 101 0428 1 

3; 102 0429 1 external routine 

3; 103 0430 1 phn$make_ctl, 

: 104 0431 «1 phn$queue_smb, - 

s 105 0432 1 scr$erase_line: addressing_mode(general), 

: 106 0433 (1 scr$erase_page: addressing_mode(general), 

s 107 0434 1 scr$put_buffer: addressing_mode(general), 

: 108 0435 1 scr$put_line: addressing_mode(general), 

; 109 0436 1 scr$put_screen: addressing_mode(general), 

s 190 0437 1 scr$set_buffer: addressing_mode(general), 

Rab 0438 1 scr$set_cursor: addressing _mode(general), 

: 112 0439 1 scr$set_scroll: addressing_mode(general); 

s 115 0440 1 

; 46196 0441 1! 


a rs 
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v04-000 Module Declarations 14-Sep-1984 12:53:34 CPHONE.SRCITE ERMINAL. B32;1 (2) 
» 35 0442 1 ! Own Variables: 
; 116 0445 1! 
s 117 0444 1 
: 118 0445 1! The following variable contains the terminal channel number for obtaining 
s 119 0446 1 ! keystrokes: 
; 120 0447 1 
. Say 9448 1 own 
; \$¢ 0449 1 terminal_channel: word; 
; \s 0450 1 
: 1 ¢ Ores i ! Tne following variable is the current position on the command Line. 
$ 158 Seag 1 own 
: 127 0454 1 command_line_pos: long; 
: 128 0455 1 ‘ : ; 
; \¢? p28 ! ! We need a Line of dashes. No point in wasting space with lots of them. 
s T3 0458 1 bind ; 
: Bae 0459 1 dashes = describe( ' neem nnn nnn new wn ne enn www ewww ene w www e ween een ewww eee en ewww en nnn n cee nneecooon= 
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1 Bliss-32 V4.0-742 
TERM = Initialize Users Terminal 14-Sep-1984 PHONE .SRCJTERMINAL .B32;1 
Bsbttl *PHNSINIT_TERM = Initialize Users Terminal’ 


Functional Description: . 
his routine is called at initialization to prepare the user's 
terminal. This includes checking for valid terminal type, channel 
assignment, and initial formatting of the screen. 


Formal Parameters: 
non 


i 

i 

i 

i 

i 

i 

i 

i 

! Implicit Inputs: 
global data 
! Implicit Outputs: 
global data 
i 

i 

i 

i 

i 
ie 


Returned Value: : ; 
phn$_badterm Cannot use this type of terminal a a phone. 


Side Effects: 


global routine phn$init_term = begin 
own 


ited device_class: long; 
in 
get_device_class = uplit(word(4) ,word(dvi$_devclass), 
Long(device_class), 
Long(0), 


long(0)); 


local 
status: long; 

local ; : 
local_described_buffer(terminal_number ,64); 


! We begin by potern tates the user's SYSSINPUT device. We will need to 
! read keystrokes from it. Make sure it's a device we can use. 


status = SgetéutCetnaphnth get islets 
devnam=deScribe('SYSSINPUT'), 
itmlst=get_device_class); 
check (.status); 
Svaittr(etn=phnék_get jpietn); 
if .device_ class nequ dc$_term then 
return phn$_inputterm; 


status = Seralagt Lopnansdonce thet SY SSINPUT')., 
rsllen=terminal number 
rslbuf=terminal number); 
check (.status); 
if ch$rchar(.terminal_number(ptrJ) eglu escape then ( 
terminal_number(len] = .terminal_numberLlen] - 4; 
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—s 
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' terminal_number(ptr] = .terminal_number(Cptr] + 4; 
if not phn$term_characteristic(terminal_number,tt$m_scope) then 
return phn$_badterm; 


' Now we can assign to the user's terminal. This channel will be used 
! for reading keystrokes, but not for output. 


status = S$assign(devnam=terminal_ number, 
chan=terminal_channel); 
check (.status); 


! Now we have to clear the half-duplex bit in the terminal characteristics. 
! This is because we have to share the terminal with the RTL screen package. 


VWEWN HOODOO OUS Wr 


begin 


AL 
IT 
3 local 
; : terminal_chars: block(8,byteJ; 
bind 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
2 
2 
2 
2 
2 
2 
; 
2 
1 


device_info = terminal_chars(4,0,32,0]: blockl4,byted; 


2 status = $qiow(chan=.terminal_channel, 
P func=io$_sensemode, 
pl=terminal_chars); 
check (,status); 
device_infoltt$v_halfdup] = false; 
Pp status = $qiow(chan=,terminal_channel, 
P func=io$_setmode, 


pi=terminal_chars); 

check (.status); 

end; 

' Put up the initial screen layout. 

phn$fresh_screen(true); 

! Finally, we enable the keyboard so the user can enter a command. 


phn$kbd_enable(); 
return phn$_ok; 
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00000009 
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00000009 
00000000' 
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0054 ADDRESS P.AAB 
0058 P.AAC: “wpe 4 
OOS5A WORD 4 
Fh “ADDRESS DEVICE_CLASS 
006 -LONG 0 
0064 -LONG 0 
0068 P.AAE: .ASCII \SYSSINPUT\ 
00071 -BLKB 3 
00074 P.AAD: .LONG 9 
00078 «ADDRESS P.AAE 
QOO7C P.AAG: .ASCII \SYSSINPUT\ 
it -—BLKB 3 
0088 P.AAF -LONG 9 
0008C »ADDRESS P.AAG 


-PSECT SOWNS,NOEXE,2 
00000 TERMINAL_CHANNEL: 
+BLKB 


00002 -BLKB 
00004 COMMAND_LINE_POS: 


2 

2 

LKB 4 
00008 DEVICE_CLASS: 

-BLKB 4 


DASHES= P.AAA 
GET_DEVICE CLASS= _P.AAC 


R 
HN$_NOPROC, *PHNS 
XTRN PINS -§ REMO 


PHNSGB"FLAGS 
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HN$_OK, PHNS$_ANSWERED 
AL 


H radon 
PHNS” =ONLYN ObE PHN$_PHONEBUSY 


CTL 
PHNSQUEUE_SMB, POCRSERASE _LINE 
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$PUT_BUFFER 
Bt EEN 
“BUFFER, SCRSSET CURSOR 
SCROLL, SYS$GETBVI 
FR, SYS$TRNLOG 

GN, SYS$ 
SCODES,NOWRT,2 


PHNSINIT_TERM, Save R2,R3,R4,R5 
SYS$Q10W; 

TERMINAL_CHANNEL, R4 

LIBSSIGNAL, R3 

=80(SP), SP 

#64, TERMINAL_NUMBER 

TEREENAL _MURBER*6. TERMINAL _NUMBER+4 


A 
#1, LIBSSIGNAL 
#1 


#1, SYSSWAITFR 
DEVICE_CLASS, #66 


2$ 
#PHNS_INPUTTERM, RO 
(SP) 


-(SP 
TERMINAL _NUMBER 
TERMINAL NUMBER 


P.AAF 

#6, SYSSTRNLOG 

RO, STATUS 

STATUS, 3$ 

#1, LIBSSIGNAL 
@TERMINAL NUMBER*4, #27 
#4, TERMINAL_NUMBER 

#4° TERMINAL NUMBER+4 
#4096, (SP) 


RMINAL_NUMBER 
#2, PHNSTERM_CHARACTERISTIC 


#PHNS_BADTERM, RO 
-(SP) 
TERMINAL _NUMBER 


#4, SYSSASSIGN 
RO, STATUS 
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PHON 
Rsbttl *PHNSTERM_CHARACTERISTIC = Get a Terminal Characteristic’ 

i Functional Description: 

, This routine is called to get_one of the characteristic bits 

1 for the specified terminal. These bits specify various features 
of the terminal. 

i Formal Parameters: 

: terminal number Address of descriptor of terminal number. 
mask Mask for characteristic bit. 

i Implicit Inputs: 

global data 

i Implicit Outputs: 

global data 

i 

{ 

i 

i 

i 
te 


' Returned Value: 
True if characteristic bit is set, false if clear. 


Side Effects: 


global routine phn$term_characteristic(terminal_number,mask) = begin 


local 
status: long; 


local_described_buffer(dib_buffer,12); 


local 


! First we obtain the device information in a buffer long enough to contain 
! the device dependent characteristics. 


status = $getdev(devnam=.terminal_number, 
pribuf=dib_buf fer); 

if .status nequ ss$_nonlocal then 

check (.status); 
! Now we can check the requested bit and return true or false. 
begin 
bind 

dib = .dib_buffer(ptrjJ: blockC,bytel; 
return (.dib[dib$l_devdepend] and .mask) nequ 0; 


end; 
end; 


-EXTRN SYS$GETDEV 


0000 00000 -ENTRY PHNSTERM_CHARACTERISTIC, Save nothing 
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-PSECT SOWNS,NOEXE,2 
0000C TERMINAL_IOSB: 
00000001 00014 SINGLE_KEY: | 
. LONG 


1 
TERMINAL TERMINAL = Terminal Handling Routines ise $1984 02:18:45 AX-11 Bliss-32 V4.0-742 Page 11) 
voe~000 PHNSKBD_ENABLE = Enable Keyboard for Input 1e-8ep-19 4 A TET PHONE .SRCJTERMINAL.B32;1 . (5) 
: 286 0610 1 Ssbttl ‘PHNSKBD_ENABLE - Enable Keyboard for Input’ : 
; 287 0611 1 ++ ; 
; on pol¢ 1 ! Functional Description: 3 
: 289 0615 1! This routine is called to enable the keyboard to interrupt ; 
: 290 0614 1! us with input. We use an AST to inform us of pending input. : 
; $3) bel? ! The AST routine sets up to read the input. | : 
; 2 0617 1 ! Formal Parameters: 3 
> 294 0618 1! none 3 
3. 295 0619 1! ‘ 3 
; 296 0620 1 ! Implicit Inputs: : 
; 297 0621 1! global data : 
; 298 06 ¢ +} : 
> 299 06 1 ! Implicit Outputs: - 
; 300 0624 1! global data ; 
3; 30] bes? 1! : 
; ee 0626 1 ! Returned Value: 3 
; 303 0627 1! : 
: 304 0628 1! ; 
; 205 4 1 ! Side Effects: : 
; 306 0630 1! 3 
: Jor 0631 1 !-- : 
; 308 O68 1 $ 
; 309 06335 1 : 
; 310 0634 2 global routine phn$kbd_enable: novalue = begin 3 
g St 0635 2 : 
s Siz 0636 2 own F 
ee 0637 2 terminal_iosb: block(8,bytel, : 
; 314 0638 5 own_described_buffer(single_key,1); : 
s 315 0639 $ 
; S16 0640 2 local F 
s 6S 0641 2 staius; : 
3 638 0642 2 3 
; ay 0643 2 3 
3. Seo 0644 2 ! The AST routine reads the peniny keystroke and passes it ateng to a : 
4 0645 2! Steer ine message routine. The steering routine then flushes all : 
3. Bee 0646 2 ! outstanding keystrokes at the time it is called, thus causing us to : 
; $57 0647 3 ! batch’ the keystrokes. It is hoped that the delay caused by this scheme 
3 $S¢ pore ! will be proportional to the system load. 
: 326 0650 routine kbd_ast: novalue = begin 
Ber 0651 
; $56 0836 check (.terminal_iosb(0,0,16,0]); 
; 356 0654 phn$queue_smb(smb__kbd_get,single_key); 
$ $3! 0655 return; 
; 332 0656 3 
3, 333 0657 2 end; 
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PHNSKBD_ENABLE = Enable Keyboard for Input 14-Sep-1984 12:5 ‘42 PHONE. SRCJTERMINAL. B32;1 (5) 
00000000' poole «ADDRESS SINGLE_KEY+8 $ 

001C -BLKB 1 | 

-PSECT S$CODE$,NOWRT,2 | 

0000 60008 KBD_AST:.WORD Save nothin ; 0650 

C 0000° CF fe Hit BLBS TERMINAL_10 ' 3; 0652 
E 0000" CF 3C 0000 MOVZWL TERMINAL_IOSB, -(SP) : 
000000006 00 01 FB 0000 CALLS #1, LIBSSIGNA : 

0000' fr 9F 000135 1$ PUSHAB SINGLE_KEY 3; 0654 
1 DD 0001 PUSHL #1 3 
0000G CF 02 FB 00019 CALLS #2, PHNSQUEUE_SMB é 

04 OOO1E RET 3; 0657 


31 bytes, Routine Base: S$CODE$ + 015D 


1 
TERMINAL TERMINAL = Terminal Handling Routines 16-Sep-1984 02:18:45 AX-11 Bliss-32 V4.0-742 
yOe~000 PHNSKBD_ENABLE = Enable Keyboard for Input 1 =30P 71382 95:4 234 PHONE. SRCITERMINAL .B325 1 
; 5 0638 ! To enable the keyboard, we do a read for a single keystroke, with AST 
; $ Re? ' to be delivered when it comes in. Note that we specify no terminators. 
; 3538 Pp See, status = $qiolefn=phn$k_kbdefn, 
3 gor P bob¢ chan=,terminal channel 
; 340 P 066 func=io$_readvBlk + io$m_noecho + jo$m_nofiltr, 
: ee P 0664 iosb=terminal_iosb, 
s ny P 0665 astadr=kbd_ ast 
; 34 P 0666 pl=single_key+6, 
: ste P 0667 p2=1, 
: 345 0668 e suplit long(0,0)); 
: 308 0669 check (.status); 
3 Sar 0670 
; 348 0671 return; 
: 349 pore 
; 350 0673 1 end; 


-PSECT SPLIT$,NOWRT,NOEXE,2 
00000000 00000000 00090 P.AAH: .LONG 0, 0 

-EXTRN SYS$QI0 

-PSECT S$CGDES,NOWRT,2 


0000 00000 ENTRY PHNSKBD_ENABLE, Save nothing 
7E 7C 00002 CLRQ = =( SP) 
7E D4 00004 CLRL = (SP) 
0000' CF 9F 00006 PUSHAB P.AAH 
01 DD OOO0A PUSHL #1 
0000" CF 9F 0000C PUSHAB SINGLE_KEY+8 
7E D4 00010 CLRL (SP) 
CC. AF. «OOF 00012 PUSHAB KBD_AST 
0000" CF 9F 00015 PUSHAB TERMINAL_I0SB 
7E 0271 8F 3c 00019 MOVZWL #625, - 
7E 0000' CF 3C OOO1E MOVZWL TERMINAL_CHANNEL, -(SP) 
62 dD 00023 PUSHL # 
000000006 00 OC FB 00025 CALLS #12, SYS$QI0 
09 50 €8 0002C BLBS STATUS, 1$ 
50 DD 0002F PUSHL ST 
000000006 00 01 FB 00031 CALLS #1, LIBSSIGNAL 
04 00038 1$: RET 


; Routine Size: 57 bytes, Routine Base: $CODE$ + 017C 
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3 28 pore ! Rsbttl *PHNSKBD_GET = Get ALL Outstanding Keystrokes’ : 
; 4 Bore 1 { Functional Description: F 
3 Soe 0677 1! This steering message routine is invoked when the user has typed : 
; i 0678 1! a key at the terminal. It collects any additiowvt keystrokes 3 
3 Sor 0679 1! from the typeahead buffer and queues them in a hutch to the : 
s 538 0680 1! input interpreter. : 
: 339 0681 1! F 
; 360 bees 1 ! Formal Parameters: s 
3 36) 0685 1! single_key The address of a descriptor of the single keystroke | 3 
; Ms pose } that started this mess. 5 
3 32 be 6 1! Implicit Inputs: 3 
; 365 0687 1! global data ; 
; 366 0688 1! 3 
; 367 0689 1 ! Implicit Outputs: ; 
; 368 0690 1! global data : 
; 369 0691 1! ; 
3; oT 0692 1 ! Returned Value: : 
; oT) 0695 1! non | : 
3 . 0694 1! ; 
: 37 0695 1 ! Side Effects: | 3 
3. 376 0696 1! F 
; . 3T9 0697 1 !-- 3 
s S76 0698 1 3 
377 0699 1 | : 
; 378 0700 2 glohal routine phn$kbd_get(single_key): novalue = begin 3 
: 379 0701 2 5 
; 380 0702 2 bind 3 
» me 0702 2 single_key_dsc = .single_key: descriptor; : 
s 3ee 0704 2 3 
3s 3e5 0705 2 local : 
; 384 0706 2 status: long, ; 
; 35 0707 2 terminal_iosb: block(8,bytel; 3 
: 386 0708 2 local ; : 
3 Ser 0709 2 local_described_buffer(input ,80); 3 
; 388 0710 2 3 
3; 389 0711 2 | : 
; 390 0712 2 ! We begin by moving the single key that was passed to us into our input 3 
; 391 0713 § ' buffer. F 
; 0714 $ 
; $02 tar § ch$move(1,.single_key_dsc(ptrj,.input(ptr]); | 3 
; 395 0717 ' Now we can flush the typeahead buffer and add it to our input buffer, : 
: $09 B15 ! forming a batch of characters. NOTE that we specify no terminators. 3 
‘ : 
; 398 P 0720 status = $qiow(efn=phn$k_kbdefn 3 
; a P 0721 chan=.terminal_channel ( : : : 
: 400 P 8256 func=io$_readvblk + io$m_noecho + jo$m_nofiltr + io$m_timed, 3 
; 401 P 07 iosb=terminal_iosb, : 
: 40 P 0724 pi=.input(ptrJ+1, 3 
; 40 P 0725 p2=79, 3 
3; 404 P 07 $ p5=0, 3 
: 405 7 p4=uplit long(0,0)); 3 
; 406 728 check (.status); 3 | : 
: 407 729 if .terminal_iosb(0,0,16,0] nequ ss$_timeout then 3 
: 408 0730 check (.terminal_iosb(0,0,16,0]); : 
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! FILL im the character count in the input buffer and queue a steering 
! message to route the input. 


inputClen] = 1 + .terminal_iosb(2,0,16,0); 
phn$queue_smb(smb__kbd_roufe, input); 


! Re-enable the keyboard for further input. 
phn$kbd_enable(); 


return; 
1 end; 
.PSECT $PLIT$,NOWRT,NOEXE,2 
00000000 00000000 00098 P.AAI: .LONG 0, 0 
.PSECT S$CODE$,NOWRT,2 
0004 00000 .ENTRY PHNSKBD_GET, Save R2 
52 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R2 
SE AG AE 9E 00009 MOVAB <-92(SP), SP 
50 04 AC DO 00000 OVL SINGLE_KEY, RO 
7E 50 8F 9A 00011 MOVZBL #80, INPUT 
04 AE 08 AE 9E 00015 MOVAB INPUT+8, INPUT+4 
04 BE 04 BO 90 OOO1A MOVB @4(RO), @INPUT+4 
50 04 AE 01 C1 OOOTF ADDL3 #1, INPUT+4, RO 
7E 7C 00024 CLRO 0 = (§P) 
0000* CF 9F 00026 PUSHAB P.AAI 
7E D4 OO02A CLRL  =(SP) 
7E 4F 8F 9A 0002C MOVZBL #79, -(SP) 
50 DD 00030 PUSHL RO 
7E 7C 00032 CLRQ. = (SP) 
78 AE 9F 00034 PUSHAB TERMINAL_IOSB 
7E O2F1 8F 3¢ 00037 MOVZWL # -(SP 
7E 0000' CF 3¢ 0003C MOVZWL TERMINAL_CHANNEL, -(SP) 
02 DD 00041 PUSHL 
000000006 00 0c FB 00043 CALLS #12, SYS$Q10W 
05 50 €E 9004 BLBS STATUS, 1$ 
50 3 004D PUSHL STATUS 
62 01 FB 0004F CALLS #1, LIBSSIGNAL 
022c «BF 58 AE Bl 90038 1$: CMPW § TERMINAL_IOSB, #556 
0B 13 0005 BEQL 
07 58 OA &8 005A BLBS §_TERMINAL_IOSB, 2$ 
7E 58 46 AE «3 (0005 MOVZWL TERMINAL~10SB, -(SP) 
62 01 FB 0006 CALLS #1, LIBSSIGNAL 
6E SA AE gt Al 00065 2$ ADDWS #1, TERMINAL_IOSB+2, INPUT 
DD O06A PUSHL 
02 od 0006C PUSHL # 
00006 CF 0 FB 006 CALLS #2, PHNSQUEUE SMB 
FFGF CF FB 007 CALLS #0. PHNSKBD_ENABLE 


0700 


; 0703 
; 0709 


; 0715 
; 0727 
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re Rsbttl *PHNSFRESH_SCREEN = Refresh the Screen’ 

74 i Functional Description: 

74 his routine is called to refresh part or all of the screen, as 

bg specified by the parameter. 

2 Formal Parameters: 

top_too If false, we refresh the viewports. If true, we 
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also refresh the top four Lines. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: ; 
phn$_noports Too many viewports required for active people. 


Side Effects: 


global routine phn$fresh_screen(top_too) = begin 


local 
status: long, 
p: ref pub; 


! If a scrolling-type command is in progress (e.g., HELP), then we can't 
! refresh or we'll clobber whatever is being scrolled. 


if .phnSgv_scroller then 
return phn$_ok; 


! We begin by recalculating the viewport parameters to assign all active 
! participants a viewport. If this cannot be done, we return an error 
! status without touching the screen. 


status = phn$review(); 
if .status nequ phn$_ok then 
return .status; 


! If we are to refresh the top four lines of the screen, then do it. 
! This includes a heading, today's date, the switch hook character on the 
! command Line, and a Line of dashes. 


if .top_too then ( 
scr$erase_page(1,1); 


scr$put_screen(describe(' VAX/VMS Phone Facility '),1,28,%b°0010"); 


begin 
fetal 


local_described_buffer(todays_date,1\); 


=" 


< 
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V5e~000 PHNSFRESH_SCREEN = Refresh the Screen 1 =300 71382 95338532 PHONE. SRCITERMINAL .B3251 
; 4 01 4 
3; 4 8 & Seog t tate tabutetodeys_dete) 
; 4 scr$put_screen(todays_date, 1,69); 
: : be end; 
: 685 scr$put_screen(phn$gq_switch_hook,2,1); 
3 one $9 command-line, pos = 3. : a 
rh 809 scr$put_screen(dashes,4,1); 
me eta 
: 691 og ! Now we can display the viewports. We scan the PUB chain and find each 
: $38 : ! PUB that has a viewport assigned. These viewports are displayed. 
; $3¢ O83 scr$erase_page(5,1); 
: 496 thi p = .phn$gq_pubhead(0); 
: 497 pais until .p eqla phn$gq_pubhead do ( 
; 498 081 -pCpub_w_viewsize] nequ 0 then 
; rb Base pinSfresh_view(.p,true,true); 
: 501 08 = .pCpub_l_flink); 
; 03 BS § " p = .pCpub_l_ 
; 0824 
; 504 8 5 return phn$_ok; 
3 20? th 
; 506 082 end; 
-PSECT SPLITS,NOWRT,NOEXE,2 
20 65 6E& 6F 68 50 20 53 4D 56 2F 58 41 56 20 OQOOAO P.AAK: .ASCII \ VAX/VMS Phone Facility \ 
20 79 74 69 6C 69 63 61 46 QOOAF 
4 94 99k Q000B8 P.AAJ: .LONG 24 
00000000' 000BC «ADDRESS P.AAK 
EXTRN SYSSASCTIM 
PSECT S$CODE$,NOWRT,2 
003c 00000 -ENTRY PHNSFRESH_SCREEN, Save R2,R3,R4,R5 
55 4-69 945643 00 4 Bons MOVAB SCRSERASE_PAGE, R5 
e% DSO koboe ef 3 000 MOVL #PHNS OK, R 
3 000000006 00 0019 MOV SCRSPOT_SCREEN, R3 
5€ 14 C2 0001 SUBL #20, S 
03 0000G CF 01 4 OO1A BBC #1, PHNSGB_FLAGS, 1$ 
008c 31 000 BRwW 
0000v gf 98 FB 00023 1$ CALLS #0, PHNSREVIEW 
4 ot 00 CMPL STATUS, R4 
01 13 $ B BEQL 
04 i) RET 
51 04 ac €9 00 5 2$: BLBC TOP_TOO, 3$ 
1 OD PUSHL #1 
1 OO PUSHL #1 
65 § FB 000 CALLS aS SCRSERASE _PAGE 
DD 000 PUSHL @# 


m1 
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Vo0-000 PHNSFRESH_SCREEN = Refresh fhe Screen 1228eb2} 38 93: 48: 4 PHONE . SPC pct TERMIN NAL .B32;1 . (8) 
Ic DD 00038 PUSHL 428 : | 
0 pp 030 PUSHL #1 : | 
0000" CF 9F O003F PUSHAB PAA : 
63 4 FB 043 CALLS “Scnspur _SCREEN : 
6E B 4g MOVL aif E + 0800 
04 AE 08 AE 9E 004 MOVAB TOpAyS. ODATETB. TODAYS_DATE+4 : 
7E 7C 0004 CLRQ ay ; 0802) 
08 AE 9F 0005 BUSHAB TODAYS _DATE : 
7E 04 0005 CLRL -(SP) ~ ; 
000000006 00 04 FB 0005 CALLS #4, SYSSASCTIM : 
7E 45 BF 9A 0005C MOVZBL #69, <<(SP) + 0803 
01 pp 006 PUSHL #1 : 
08 AE F 0006 PUSHAB Se DATE : 
63 0 FB 0006 CALLS #3, SCRSPUT_SCREEN : 
1 DD 00068 PUSHL + 0806 
02 DD O006A PUSHL * : 
00006 CF 9F 0006C PUSHAB PHNS$GQ_SWI TCH_HOOK : 
63 03 FB 0007 CALLS #3, SCRSPUT_SCREEN 3 
0000" CF 02 DO 0007 MOVL #2, COMMAND-LINE_POS + 0807 
01 Dd 0007 PUSHL #1 + 0809 
04 DD OOO7A PUSHL #4 ; 
0000' CF 9F 0007C PUSHAR DASHES ; 
63 03 FB 00080 CALLS #3, SCRSPUT_SCREEN : 
01 DD 00083 3s: PUSHL #1] > 0815 
05 DD 90085 PUSHL #5 : 
65 02 FB 00087 CALLS #2, SCRSERASE PAGE ; 
52 0000G CF DO O008A MOVL PHNSGQ_PUBHEAD, : 0817 
50 0000G CF 9E OOOBF 4$: MCVAB PHNS$GQ~PUBHEAD, RO : 0818 
50 52 D1 00094 CAPL P, RO ™ F 
16 13 00097 BEQL 46s $ : 
OOFC C2 B85 00099 TSTW SF cp) : 0819 
08 13 0009D BEQL 5$ : 
01 DD 0009F PUSHL #1 : 0820 
01 DD 000A1 PUSHL #1 : 
32 DD D005 PUSHL P F 
0000v CF 03 FB 000A5 CALLS #3, PHNSFRESH_VIEW ; 
52 62 DO OOOAA S$: MOVL (PS, P : 0822 
EO 11 OOOAD BRB 4$ : 0818 
50 54 DO OOOAF 6$: MOVL  R4, RO : 0825 
04 00082 RET : 0827 


; Routine Size: 179 bytes, Routine Base: SCODE$ + 022E 
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Ve 000 PHNSINFORM = Display Message to User 12786871382 1 18:32 PHONE. SRCITERMINAL 83251 = (3S 
; os $ 8 } Rsbttl "PHNSINFORM = Display Message to User' | : 
: §10 8 0 1 1 Functional Description: : 
3 OT) Bak Pe is routine is called to display a message to the user. ALl messages ; 
5 1 8 ¢ 1! are defined in the message file and referenced by status codes. : 
36 CSN 8 Zz $FAO arguments can also be passed, and they will be filled into | 3 
; 1 4 ¢ ! } the message text. | : 
: aie 08 $ 1 ' Formal Parameters: ; 
oe 08 1: status_code The message status code. Zero means to clear the Line. : 
: 218 tts : faol... Zero or more $FAO arguments to be filled in. : 
: 520 OB20 | Implicit Inputs: ; 
; $2¢ SBe3 : global data : 
. 3 : nk 1 Implicit Outputs: : 
: ese Seed : global data : 
; 2s8 pase ! ; Returned Value: | : 
; ! none : 
; See 0848 1! : 
: 269 + CH : } Side Effects: : 
: 531 0851 1 i-- ; 
3 Soe 082g 1 3 
s 333 0853 1 3 
; 23¢ baee 5 global routine phn$Sinform(status_code,faol): novalue = begin : 
: 536 0856 2 Local 3 
s. Sor 0857 2 status: long, 3 
; 538 0858 2 byte_array: vector[4,bytel, F 
: ez, 0838 $ msg_text_ptr: ref descriptor; : 
: 541 0861 2 builtin | : 
; 542 0862 actualcount, | : 
; a7 eee? § nul lparameter; : 
; 545 0865 2 | 3 
; 546 0866 2! If a scrolling-type command (e.g., HELP) is in progress, we can't display : 
: af sse4 2! the message. However, we will ring the bell to tell the user something's up. : 
: 549 0869 if .phn$gv_scroller then ( | : 
s $50 0870 scr$put_screen(describe(Zchar(bell))); 3 
: 22) p87) rr return; | : 
: 338 0878 5 | 
3 32¢ th ! Now, if we are only to clear the message line, do it. : 
: 556 0876 if nullparameter(1) then ( | : 
3 357 0877 scr$erase_line(3,1); ; 
Et yt Bt pieces Patt 
; 560 0880 ’ | . 
; 361 0881 1 Now we can obtain the message text and fill in the SFAO arguments. If | 
; 266 pans } he aqesage was not defined with enough $FAO codes, we don’t fill anything 
; ! into it. 
: 564 0884 ? 
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; 565 0885 begin 
; 366 0 8 Local 
3 eof 8 Hf local_described_buffer(msg_buf,79); 
: 569 P 0889 status = $getmsg(msgid=.status_code, 
: 370 P 0890 seem a esglenzmsg_puT. 
3 Of) P 0891 bu aéroeth buf, 
: 276 P 494 flags=%b'0001', 
we 089 outadr=byte_array); 
: ace 0894 check (.status); 
s Sf 0895 ; msg_text_ptr = msg_buf; 
; 37e Bae 
3 Of 0897 4 begin 
; 578 0898 4 local 
3 rt4 3444 ? lLocal_described_buffer(fao_buf,79); 
s- 38} 0901 5 if (.byte_arrayf1] neq 0) and (actualcount() gtru .byte_array(1]) then ( 
3 8 P 0902 5 status = $faol(ctrstr=msg_buf, 
;. 36 P 0905 5 outlen=fao_buf, 
> 584 P 0904 5 outbuf=fao_buf, 
3 585 0905 5 prmlst=faoT); 
: 586 0906 5 check (.status); 
s 38r 0907 5 msg_text_ptr = fao_buf; 
; 588 0908 4); 
; 589 0909 4 
5 aoy aeiy : ! Now we can clear the message Line and display the message text. 
3 ane 0912 4 scr$erase_line(3,1); 
; 3 0913 4 scr$put_screen(.msg_text_ptr); 
: 594 914 3 end; 
3; 595 15 2 end; 
; 596 0916 2 
; 597 0917 2 ! Set the flag that says there's a message on the message Line. 
; 598 0918 2 
; 599 0919 $ phn$gv_message = true; 
; 600 0920 
: 601 0921 2 return; 
; 602 0922 2 
; 603 0923 1 end; 


-PSECT SPLITS,NOWRT,NOEXE,2 


07 QOOCO P.AAM: .ASCII <7> 
000C1 -BLKB 3 
00000001 Q00C4 P.AAL: .LONG 1 
00000000" 000C8 -ADDRESS P.AAM 


-EXTRN SYSSGETMSG, SYSSFAOL 
-PSECT S$CODES$,NOWRT,2 
7C 000 -ENTRY PHNSINFORM, Save R2,R3,R4,R5,R6 
g 08000006 68 9E Bas MOVAB LIBSSIGNAL, R6 
44444 G 00 9E 0000 MOVAB SCRSERASE LINE, R5 
00000006 00 9€ 00010 MOVAB SCRSPUT_SCREEN, R4 
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VO0-000 PHNSINFORM = Display Message to User 14-Sep-1984 4 93: 48: 2 PHONE .S RCITE ERMINA L.B32;1 . 6 
5E FF4C — 9€ 00017 MOVAB 7 |80Ks : 3 
08 00006 CF 6 fi 0016 BBC PANSGBS FLAGS, 1$ : 0869, ; 
0000' cf F 000 PUSHAB L : 0870. ; 
64 1 FB 000 6 CALLS #1, SCRSPUT_SCREEN : ; 
0% 00 RET + 0869. ; 
6c 0 A 1$ TSTB Ss CAP) + 0876 | : 
1 C BEQL 2$ : | ; 
04 AC D O2E TSTL 4(AP) : | ; 
08 12 00031 BNEQ 34 : ; 
01 DD 000 3 2$ PUSHL #1 > 0877) 3 
03 DD 000 PUSHL #3 : ; 
65 02 FB 90 7 CALLS #2, SCRSERASE_LINE : ; 
04 0003A RET : 0876 | : 
SC oAE 4F 8F GA 00038 3$: MOVZBL #79, : 0887 | : 
60 AE 64 AE 9E 00040 MOVAB MSG “BUR SB” UnSG _BUF +4 : | :] 
SE DD 00045 PUSHL SP : 0893 31 
01 DD 00047 PUSHL #1 : 31 
64 AE 9F 00049 PUSHAB MSG_BUF : 3 
68 AE 9F 0004C PUSHAB é : 31 
04 AC DD OO04F USHL TATUS_CODE : . 
000000006 00 05 FB 00052 CALLS ri SYSSGETHSG ; | - 1 
52 50 DO 00059 MOVL RO, STATUS : | 31 
05 52 £8 0005C BLBS STATUS, ug : 0894 31 
52 DD 0005F PUSHL STAT : | : 4 
66 01 FB 00061 CALLS #1, LIBSSIGNA : 31 
53 5C AE YE 00064 4$: MOVAB mG _BUF MSG_ TEXT _PTR ; 0895, a 1 
06 AE 4F =68F «(9A 00068 MOVZBL #797 : 0899 31 
08 AE OC AE 9E 0006D MOVAB. FAO “our +B. {ho _BUF +4 ; : 1 
01 AE 95 00072 TSTB BYTE_ARRA + 0901 31 
28 13 00075 BEQL 6 ; : 1 
01 AE 6C 91 00077 CMPB (AP), BYTE_ARRAY+1 : 3 1 
22 18 00078 BLEQU 6$ : 1 
08 AC 9F 0007D PUSHAB FAO1 : 0905 31 
08 AE 9F 00080 PUSHAB FAOQ_BUF ; 31 
OC AE 9F 00083 PUSHAB FAO ~BUF ; 31 
68 AE 9F 00086 PUSHAB MSG_BUF : 31 
000000006 00 04 FB 00089 CALLS #4, SYSS$FAOL 3 21 
52 50 DO 00090 MOVL RO, STATUS : 3 1 
05 22 E8 00093 BLBS STATUS, 5$ : 0906 : | 
52 DD 00096 PUSHL STATUS. : : 
66 01 FB 00098 CALLS #1, LIBSSIGNA : 31 
53 04 AE 9E 00098 5$: MOVAB FAQ_BUF, MSG_ TEXT _PTR : 0907 3 1 
01 DD OOO9F 6$: PUSHL #1 : 0912 31 
0 DD OO0A1 PUSHL 2¥ : 21 
65 FB OO0A3 CALLS @# SCRSERASE _LINE : 
53 DD 000A6 PUSHL WSG_ TEXT P : 0913 
64 01 FB 000A8 CALLS » SCRSPUT_SCREEN : 
0000G CF 01 88 000AB BISB2 Ag PHN$GB_FLAGS : 0919 
04 00080 RET > 0923 
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- Terminal Handling Routines 


Rsbttl *PHNSREVIEW = Recalculate Viewport Parameters’ 

i Functional Description: 

his routine is called to recalculate the viewport parameters 
in each of the existing PUBs. 


Formal Parameters: 
none 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
phn$_noports There is not enought room on the screen for all 
required viewports. 


Side Effects: 


ee ee ee ee ee 


global routine phn$review = begin 


local 
active_count: long, held_count: long 
viewport_size: long, viewport_Line: (ong, 
p: ref pub; 


Literal 
max_viewports = 20/pub_k_minlines; 


' First we have to scan all the PUBs and make two counts: the number of 
! PUBs we don't have on hold and the number we do have on hold. 


active_count = held_count = 0; 
p = .phn$gq_pubhead[0); 
while .p nega phn$gq_pubhead do ( 
f not .pCpub_v_temporary] then 
-pCpib_v_uhaveheld] then 
inc (held_count) 
else 
inc (active_count); 


' p = .pCpub_l_flink); 


! We need a viewport for at least all the active units. Make sure the 
! required viewports won't be too small. 


if .active_count gtr max_viewports then 
return phn$_noports; 


! Although we need a viewport for all the active units, we may also be 


a ek a a at = a tk“ ot ot a “a “ss 3) ss a “a ss 4 4 wt ttt 


2 | 
TERMINAL TERMINAL = Terminal Handling Routines 1b-s6 -1984 02:18:45 AX-11 Bliss-32 V4.0-742 Page 24 
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H 66¢ 981 ! able to accomodate some of the held units. Calculate how many of them 
3 oe? 2 ¢ ! we can accomodate. 
; 665 984 held_count = min(.held_count, 
; oF 4 max_viewports - .active_count); 
; 668 $989 ! Now we know how many viewports we will assign. Calculate how aeny Lines 
3 29? 645 ! in each viewport, but make sure it's not above the Limit set by the user. 
; 671 0990 viewport_size = minu(20/(.active_count+.held_count), 
3 of 039 -phn$gl_viewport_size); 
; 674 99 ' Now we can make another pass through the PU8s and assign viewport 
3; Ore 0994 ! parameters to all active PUBs and however many held PUBs we can 
; 676 0995 ! accomodate. 
; 677 0996 
: 678 0997 viewport_line = 5; 
: 679 0998 p = .phn$gq_pubhead(0); 
; 680 0999 until .p eqla phn$gq_pubhead do ( 
: $8) 1990 if not .pCpub_v_temporary] then 
; 468 100 if .pCpub_v_uhaveheld] and 
; 684 100 (dec (Reld_count) lss 0) then 
; 685 1004 
; 686 1005 3 pCpub_w_viewsize] = pCpub_w_viewline] = 0 
; 687 1006 4 else ( 
; 688 1007 4 pkpub_v_views ize) = .viewport_size; 
> 689 1008 4 plpub_w viewline] = .viewport_line; 
: 690 1009 4 viewport_line = .viewport_line + .viewport_size; 
; 691 1010 3 ); 
: £35 1912 : Cpub_l_flink] 
$ = .plpu nk); 
3 694 1918 2); ee 
: 695 1014 § 
; 696 1015 return phn$_ok; 
; 697 1016 2 
; 698 1017 1 end; 
003c 00000 -ENTRY PHNSREVIEW, Save R2,R3,R4,R5 ; 0948 
55 00006 gf 3 OR06 OVAB PHNS$GQ_PUBHEAD, R5 3 
C 000 CLRQ ACTIVE_ : 096 
26 6 + 0009 MOVL PHN$GQ_PUBHEAD, P ; 0965 | 
5 $3 — 0000C 1$: MOV PHNSGQ_PUBHEAD, R3 ; 0964 
53 2 01 0000F CMPL =P, RR Bak d 
16 1 012 BEQL 4 3 
e000 oro ER EERE BEE Sg 8). Be 
§ D6 Sit INCL HELD_COUNT ; $96) 
11 . 1 BRB 3 F 
D gf: INCL ACTIVE_COUNT ; 0969 
52 62 00 00 $: MOVL (P), P : | 
3 1 00 BRB 1$ : 0964 
06 D1 O002A 4$: CMPL ACTIVE_COUNT, #6 ; 0977 
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voun000 PHNSREVIEW = Recalculate Viewport Parameters 10 380=198e 93:38:42 PHONE. SRC) TERMINAL.B325 1 : 6). 
8 15 D BLEQ =s«S5$ ; | 
50 000000006 gf pO f MOVL #PHNS_NOPORTS, RO : 0978 
54 $ 0 C3 5$: SUBL3 ACTIVE COUNT, #6, R4 : 0985 
1 D B MOVL HELD COUNT, R3 : 
4 ; } 0 CMPL R35, R4 ; 
1 4 BLEQ : 
53 4 0 9 4 MOVL R4, R3 : 
j 3 0 46 6$: MOVL. 3, HELD COUNT + 0984. 
50 1 ¢ 6 4 ADDL2 HELD_COURT, RO ; 0990 

50 14 C7 0004 DIVL : R : 
00006 CF D1 005 CMPL RO, PHNSGL_VIEWPORT_S‘ZE + 0991 

if BLEQU 7 : 

50 00006 cf D0 00057 MOVL § PHNSGL_VIEWPORT_SIZE, k0 : 
54 0 DO 0005c 7$: MOVL RO, VIEWPORT_SIZE : 0990 
53 05 DO 0005F MOVL #5, VIEWPORT"LINE : 0997 
32 65 00 0062 MOVL § PHNSGQ_PUBHEAD, P : 0998 
5 $3 9E 00065 8$: MOVAB PHNSGQ"PUBHEAD, RO : 0999 

50 2 D1 00068 CMPL = «&P,,_- RO : 

: 13 00068 BEQL«=SéséAS : 
18 OOFO C2 E0 0006D BBS #2, 240(P), 108 : 1000 
09 00FO ¢ E9 90073 BLBC —-_- 240 (P) : 100¢ 

06 1 F4 00078 SOBGEQ HELD COUNT, 9$ + 100 

OOFC C2 04 00078 CLRL = - 252 + 1005 

OD 11 0007F BRB 10$ : 
OOFc =6C¢ 54 BO 6008) 9$: MOVW VIEWPORT_SIZC, 352(P) : 1007 
OOFE ¢ 53 BO 00086 MOVW VIEWPORTLINE, 254(P) : 1008 
5 54 CO 00088 ADDL2 VIEWPORT SIZE, VIEWPORT_LINE : 1009 
52 62 DO OOO8E 10S: MOVL (P), P : 1012 
D2 11 00091 BRB 8$ : 0999 
50 000000006 8F D0 00093 11$: MOVL § #PHNS$_OK, RO > 1015 
04 0009A RET : 1017 


; Routine Size: 155 bytes, Routine Base: S$ CODE$ + 0392 
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Voee 000 PHNSVIEW_GOODIES - calculate Viewport Informati 12286871382 93:18:92 PHONE. SRCITERMINAL B32: 1 9 9 

: 700 }O1B 1 Esbttl *PHNSVIGY_GOODIES - Calculate Viewport Information’ | : 
; a4 1020 1 ! Functional Description: ; 
cm 1021 1! This routine is called to calculate various information about a . 
; 704 1 § 1! viewport. The information that it returns is determined by the : 
; i? : ? : : parameters. : 
: +8 1025 1 | Formal Parameters: ; 
: A + $ : goodies_pub The address of the PU3 describing the viewport. : 
: 710 1028 1 cursor_pos The address of a vector of 2 longwords. We return ; 
3s 7% 13 , 1! the Line and column numbers specifying the current : 
: ar 8 ? : position of the cursor. ‘ 
: 714 10 ¢ 1! Line_numbers The address of a longword vector. We return the Line ; 
: 715 1035 1! numbers of the text Lines in the viewport. The zeroth 3 
: ay Ieee : entry contains the Lime with the Latest CTL. : 
: 718 1936 1! text_dscs The address of a longword vector. We return the ; 
; 719 1037 1! address of the descriptor of the text to go on the Line ; 
: r30 IOs : } specified in the corresponding Line_numbers entry. 

; 13@ 1040 1 ! Implicit Inputs: 

: oS? og : } global data 

: 725 1968 1 | Implicit Outputs: 

: 758 ee : globat data 

; rss eg : Returned Value: 

; 486 10468 1: 

: 43} Hh : } Side Effects: 

; 133 1051 1 i-- 

3; «734 1936 1 

; 1053 1 

; 736 1054 1 global routine phn$view_goodies(goodies_pub,cursor_pos,line_numbers,text_dscs): 

3 eds 1933 novalue = begin 

: 739 1057 2 bind 

: oe 1928 gp = .goodies_pub: pub; 

; 74 1060 2 bind 

; 74 1061 latest_ctl = .gpCpub a, ctlheadd}: ctl, 

: be: 1gS6 latest_text_dsc = lafeSt_ctiCctl_q_line]: descriptor; 

: 746 1064 local 

: 740 1065 Latest_line: long, 

; 168 H's 3 text_count: Long, 

: M8 in? c: ref ctl; 

: 751 1 ; builtin 

3 P36 H+ 24 nul lparameter; 

: 754 1078 

: a] Ht First let's get some terminology straight: 
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Vbe-000 PHNSVIEW_GOODIES - Calculate Viewport Informati 12280871382 95:29:42 PHONE. SRCITERMINAL 83251 . af 

s 7 1075 : oldest CTL The CTL at the end of the CTL List. It is the CTL : 

; f : : 18 } representing the oldest Line of the conversation. 2] 
: 760 1 28 i latest CTL The CTL at the front of the CTL List. It represents .] 
: re : iy the current Line of the conversation. ey 
: 76 1081 i top CTL The CTL representing the Line that would be at the . 
3 785 1 Hf : top of the viewport if the viewport were infinitely 5) 
: 765 108 : large. Ysue} ty the oldest CTL, but not if the user 2D 
5 706 Ieee ! has typed a CTRL/L. : 
: 76 1956 ! We begin by calculating the ine on which the Latest CTL text should be '?| 
: 16? See ! placed. There are two algorithms. 2 
: 771 1089 2 if .phnSgb_scrot then 3 | 
: 77 1991 ! If we are scrolling, then the Latest CTL goes on the bottom Line 3 
3 ae 1098 ! of the viewport, unless we are not very many CTLs from the top. ° 

: 776 1094 latest_line = -gpCpub-w_viewl ine] +14 ; 
: aes 199% c waa 0 we wets Poe ye Cpub_l_topetl) 
3 . ub_l_ctlcount] = .gpCpub_l_topc ; 

; 779 1097 — — ‘ . | 
: oat 1099 5 8 7 
: 78 1100 ! If we are prams ing then the latest CTL goes on a Line determined 3 
: A, 113) ! by the number of ines from the top MOD the size of the viewport. 
: 785 1108 latest_line = (9pCpub wviewline] + 1 + ; 
; 786 1104 (.gplpub_T_ctlcount] - goCpub. | topctl]) mod i 

: re 1193 T.gpCpub_w_viewsize) -"2); : 

: had By ! Now if the caller wants to know the current position, fill it in. : 

: a4 1193 if not mul Lporenctor (te) then ( : 

. n | . 
; aks HEE cursor_pos_array = .cursor_pos: vector[2,long]; : 

: 795 1113 cursor_pos_array 9 = .latest_line; : 

; 796 1114 cursor_pos_arrayl1] = .latest_text_dscllen] + 1; ; 

: O88 We 3° 
: a i? ! Now if the caller only wanted to know the current position, we're done. 
; Bo4 119 if nullparameter(3) or nullparameter(4) then ; 

; 60 i return; : 
: 04 11 § ' We are to fill in the Line number and text Fosse coter arrays. : 
: 805 11 ! Now we calculate how many text Lines we will display in the viewport. : 
; rs) 1126 ! This is equal to the number of text Lines in the viewport, unless we F 
; Be iy 5 ' are fewer than that from the top. : 
: 809 11 $ text_count = minu(.gp pub. cr lcount} - geCoub_t_topctl) +1, : 
: 10 i a -gplpub-w-viewsize) = 2); : 
: i 1130 ! Now we will fill in as many array entries as there are Lines in the. ; 
; 81 1131 ! viewport. Each Line number entry gets the corresponding viewport Line ; 
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: 14 11 ¢ ! number. Each text descriptor either gets fhe address of a descriptor s 
: 15 11 ' from a CTL, or the address of a null descriptor if the Line is to be . 
: 18 1134 ' blanked. : 
ant 1138 § beg! | 
5 egin : 
3 8 11 $ bid : 
3 0 1138 Line _numbers_array = .Line_numbers: yectorCpub_k_max r,t a : 
3 : 1 1373 text_dscs_array = .text_dscs: vectortpub. k_maxtines- ,longd; : 
3; § i 1141 ¢ = latest ctl; : 
> 824 1106 4 incru i from 0 to .gpCpub_w_viewsize]-2-1 do ( : 
3 ; 5 11435 4 Line numbers arrayl.i] = .latest_Lline; > 
: § 1144 4 dec Tlatest_Tine); : 
; & 1145 4 if .latest_Tine lequ ee + wiviewLine] then . 
; ; : 1338 ? lLafest_line = .gplpub_w_viewline] + .gplpub_w_viewsize] = 2; i 
; $6 1148 if dec (text_count) geq 0 then ( : 
: $3) 1149 Soutoecs arrayl.i] = c€ctl_q_linel; ; 
3 S36 1150 c = sclctT_l_flink]); 3 
: B3a i182 ore 6 C.i] = describe'") 
; ext_dscs_arrayl.i] = describe(''); : 
; 835 1188 3); Spy 3 : 
; 836 1154 end; 3 
3; 837 1155 : 
; 838 1156 : 
; 839 1157 3 
; 840 1158 end; 3 


-PSECT SPLIT$,NOWRT,NOEXE,2 


“* -BLKB 0O 3 


| 
| 
| 
| 
| 
return; 


oo0occ P 
00000000 OO00CC P.AAN: .LONG 0 F 
00000000' 00000 “ADDRESS P.AAO ; 
.PSECT S$CODE$,NOWRT,2 
0OFC 00000 .ENTRY PHNSVIEW GOODIES, Save R2.R3,R4,R5,R6,R7 ; 1054 
52 04 aC pO 00002 MOVL. GOODIES PuB, R : 1058 
57 01046 ~¢ 10 C1 00006 ADDL3 #16, 260(R2), R7 : 1062 
¢8 90006 CF £9 990¢ BLBC PHNEGE SCROLL, 2s : 1089 
OOFE C2 9€ 0001 MOVAB 254(R27, R > 1094 
51 60 3C 00016 MOVZWL (RO), RI : 
2 Oorc C2 9€ 9019 MOVAB 252(R2), RO > 1095 
60 3C OO01E MOVZWL (RO), R5 F 
q FD OA ‘ 0021 HOVAB -3(R5), R3 ; 
54 0100 ce 010¢ ¢ C 6 5 SUBL 268(Re5, 256(R2), R4 > 1096 | 
4 D1 CMPL =e 3, RG F 
9 if 0 BLEGU 1$ ; | 
53 4 p 0 MOVL 4 Rs : | 
a 01 as4 9 3 1$: nov 1<R3) R1), LATEST_LINE ; 1094 | 
50 OOFE 3 H O3¢ 2: MOV 3§, iR2 RO 1103 
1 60 3C 00041 MOVZWL (RO), RI ; 
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; 84 1159 1 Zsbttl "PHNSFRESH_VIEW = Refresh a Viewport' 
; «84 1160 1 !4+4 
; 844 1161 1°! Functional Description: 
: Bt? 1106 } This rout‘ne is called to refresh a specific viewport on the screen. 
: hd 1164 1 | Formal Parameters: 
; 848 1165 1! resh_pub Address of PUB pegeopens say viewport to be refreshed. 
; 849 1198 1! viewport_clear True if viewport is known to be erased upon cal!; 
; 850 1167 1! false otherwise. This is used for optimization. | 
; 851 3 1! top_bottom_too True if entire viewport is to be refreshed; false if 
3 £26 i; } only the text Lines. 
: Ht i159 1 | Implicit Inputs: 
; $22 1178 ! ; global data 
: 857 1174 1! Implicit Outputs: 
§ S28 1302 ! } global data 
; 860 1199 1 ! Returned value: 
Bob SS a Bo itt. 
; B68 1180 1 ! Side Effects: 
; 864 1181 1°! 
; 865 1136 1 !-- 
aye 
; rye By 2 global routine phn$fresh_view(fresh_pub,viewport_clear,top_bottom_too): novalue = begin | 
: 870 1187 2 bind | 
; «871 1188 fp = .fresh_pub: pub. 
; 87 1189 fresh_tsb = fplpub_b_tsbJ]: tsb; 
; Bi 119% local | 
3 c 
: 875 1136 cursor_pos: vector(2,long], 
; 876 119 Line_numbers: vector(pub_k_maxlines-2, ong], 
; 877 1194 text_dscs: vector(pub_k_maxlines-2,long], 
; 878 1195 c: ref ctl; 
iOS 
; 881 1198 ! If a scrolling-type command (e.g., HELP) is in progress, we can't refresh 
3 HY 1193 ! the viewport. 
: B84 1504 if .phn$gv_scroller then 
: nH ! 0 return; 
; 88 1204 ! If we are to refresh the entire viewport, then we have to clear the first 
; 888 1205 ! Line and center the user name on it, display the hold indicators, and 
; $5p : 88 ! throw up a Lines of dashes at the bottom. 
: 891 1208 3 if .top_bottom_too then ( 
: 25 1209 4 begin 
3 3 1210 4 bind : 
: ~ ' 1} ? spec_dsc = fresh_tsb(tsb_q_tkndsc,0]: descriptor; 
f $e RIE £ A not awheyportsctear hep seul ined, 1 
3 scr$erase_line(. ub_wiview : 
; 898 1215 4 serSput.screentspec..esc.,. tp pub_w_viewlined,(81-.spec_dscLlen])/2,%b'0001"); 


<-— 
om 


ce 
TERMINAL TERMINAL = Terminal Handling Routines 1b-se -1984 02:18:45 AX-11 Bliss-32 V4.0-742 P 1 
voe~000 PHNSFRESH_ VIEW = Refresh a Viewport 12-8081 SRE 93:38:32 PHONE. SRCITERMINAL B32 1 age 13) 
$ 44 } 16 end; 
; $01 18 phn$fresh_hold( fp); 
3 $08 1 Y scr$put_screen(dashes,.fpCpub_w_viewline]+.tolpub_w_viewsizeJ-1,1); 
: 905 1 ‘ 
3 4] 1 g ' Now we want to refresh the text Lines themselves. We call a routine 
; rid ! ¢ ! to tell us which Lines and what text goes on them. 
; ON0 : $ phn$view_goodies(fp,cursor_pos,line_numbers,text_dscs); 
: 911 1206 2 ! Now we loop through the arrays, acting on each active entry. The 
; a 1229 ! Line number array tells us which viewport Line the text goes on. The 
: ae ; ? ! text descriptor array tells us what text to put there. 
; ai? : 5 incru i iron 0 to .fplpub_w_viewsize)-2-1 do ( 
3 n 
: a : 3 Line_dsc = .text_dscsC.i]: descriptor; 
: 919 1236 4 if not .viewport_clear or .line_dscClen] nequ 0 then ( 
; 920 \s3i 4 scr$erase_line(.line_numbersC.iJ,1): 
; 3s! 1238 4 scr$put_screen(line_dsc); 
3; 9 ; 1239 3 ; 
Be EL 
3 as? 1342 ! Finally, position the cursor at it's current point in the viewport. 
; $37 Fo: scr$set_cursor(.cursor_pos(0),.cursor_pos(1]); 
: 929 1502 g return; 
: 930 1247 ¢ 
; 931 1248 end; 
OOFC 00000 ENTRY PHNSFRESH_VIEW, Save R2,R3,R4,R5,R6,R7 3: 1185 
57 00000000G 00 9€E 00002 OVAB SCRSERASE-LINE, R7 s 
56 000000006 00 9€E 00009 MOVAB SCRS$PUT_STREEN., R6 3 
5E BB AE 43 00010 MOVAB <-72(SF), SP $ 
52 04 AC 00 00014 MOVL FRESH PUB, R2 3: 1188 
01 00006 CF 01 Fi 00018 BBC #1, PANSGB_FLAGS, 1$ ; 1201 
49 Oc AC €9 OOO1F 18: BLBC _ TOP_BOTTOM_TOO, 3$ > 1208 
OA 08 aC €E8 000 ; BLBS VIEQPORT_CCEAR, 2$ 3 1$\3 
01 Be 00 PUSHL 3 1214 
3 OOFE cs C ! 9 MOVZWL 254(R2), -(SP) ; 
6 6 re E ALLS #2, SCRSERASE_LINE ; 
1 DD 00051 2$: USHL #1 : 1215 
50 10 As 3¢ 0033 MOVZWL 16(R2), RO 3 
50 AF OA E 00037 OV 81 ROS, RO F 
50 9 C6 00038 DIVL #2, R ; 
7E E QO035E MNEGL RO, -(SP) : 
7E orf C2 3¢ 0041 MOVZWL : 4(R2), -(SP) : 
1 A F 00046 PUSHAB 16(R2) ; 


M 2 
TERMINAL TERMINAL = Terminal Handling Routines 16-Sep-1984 18:45 AX-11 Bliss-32 V4.0-742 P 

vOe~000 PHNSFRESH_VIEW = Refresh a Viewport 12286871382 93:18:92 PHONE. SRCITERMINAL 83251 aac 
66 4 FB 9049 CALLS #4, SCRSPUT_SCREEN : | 
2 DD 0004C PUSHL Re + 1218 
0000v CF FB 0004 CALLS #1, PHNSFRESH_HOLD : | 
1 0D 000 PUSHL HI : 1220) 

0 OOF C2 3¢ MOVZWL : 4(R2), RO : 

1 OFC ‘ ¢ 005A MOVZWL 252(R2), R1 : 

0 005F DDL2. RI, R : 

FF AO SF O6@ PUSHAB =1(RO) : 

0000" CF 9F 0006 USHAB DASHES ; 

66 3 FB 00069 CALLS #3, SCRSPUT_SCREEN : 
E DD 0006C 3$: PUSHL SP + 1226 

24 AE OOF O06 PUSHAB LINE_NUMBERS ; 

48 AE 9F 000 PUSHAB CURSOR_POS : 

52 DD 00074 PUSHL R ; 

FEA8 CF 04 FB 00076 CALLS #4, PHNSVIEW_GOODIES ; 
54 OOFC ce 3¢ 00078 MOVZWL 252(R2), R4 + 1232 

54 0 Ce 00080 SUBL2. #3, R : 
55 08 AC D2 00083 MCOML VIEWPORT_CLEAR, RS + 1236 

52 D4 00087 CLRL. oI ; 

1B 11 00089 BRB 7$ ; 
53 ES? DO 00088 4$: MOVL _- TEXT_DSCSCIJ, R3 + 1234 
04 55 £8 O008F BLBS RS, 5$ + 1236 

63 8 00092 TSTw = (R38) ; 

OE 13 00094 BEQL ; 
01 DD 00096 Ss: PUSHL #1 t 1237 

24 AE42 DD 00098 PUSHL LINE_NUMBERSCI] F 

67 0¢ FB 0009C CALLS #2, SCRSERASE_LINE : 
53 DD 0009F PUSHL : 1238 

66 01 FB OO0A1 CALLS #1, SCRSPUT_SCREEN ; 
52 D6 O00A4 6$: oo + 1232 

54 52 D1 O00A6 7S: CMPL sd, RG F 

EO 1B 000A9 BLEQU 4$ ; 
44 AE DD OOOAB PUSHL CURSOR_POS+4 3 1244 

44 Ac OD OOOAE PUSHL CURSOR POS é 

000000006 00 02 FB 000B1 CALLS #2, SCRSSET_CURSOR : 
04 00088 RET > 1248 


; Routine Size: 185 bytes, Routine Base: S$CODE$ + OS5S0A 
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TERMINAL TERMINAL = Terminal Handling Routines 16-Sep-1984 02:18:45 AX-11 Bliss-32 V4.0-742 
Veen 000 PHNSFRESH_HOLD = Display Hold Indicators 1e-8ep-19 4 95:48 34 PHONE. SRCITERMINAL .B325 1 
: g 3 ! 3 } Rsbttl *PHNSFRESH_HOLD = Display Hold Indicators’ 
: 935 1 i 1 | Functional Description: 
>; 936 1 ¢ . so This routine is called to display the hold indicators on the first 
; 937 1 2 1! Line of a viewport. One indicator says whether or not we have the 
: 4 3 : 2¢ ! } person on hold, the other says whether or not they have us on hold. 
: 940 1 26 1 | Formal Parameters: 
: 803 } 4 : fresh_pub The address of the PUB representing the viewport. 
: 308 1259 1 ' Implicit Inputs: 
. are ! re ! global data 
: 946 1 6¢ 1 i Implicit Outputs: 
; oh : o7 : global data 
: 388 : Hi : Returned Value: 
3 ‘ non 
: 951 1568 1! 
; oa6 1568 ; ; Side Effects: 
: 954 1270 1 i-= 
; 955 1271 #1 
; 956 1 ie; 1 
: Bae \$t7 global routine phn$fresh_hold(fresh_pub): novalue = begin 
: 959 1578 § bind 
: + ¢ 1676 3 fp = .fresh_pub: pub; 
: 96 1558 ; 
; 96 1279 ! If a scrolling-type command (e.g., HELP) is in progress, we can't display 
; He: 1¢80 ! the indicators. 
: 308 iste if .phn$gv_scroller then 
3 return; 
; 968 1284 
3 3 aH § ! Display an indicator to say if we have them on hold. 
: 971 1287 2 scr$put_screen(if .fpCpub_v_whaveheld] then describe(*(YOU HAVE HELD)') 
3; 87, 1288 else describe(' a 
; oF \¢6 - fpCpub_w_viewline),1); 
; of if 34 ! Display an indicator to say if they have us on hold. 
; 977 1598 if .fpCpub_v_hasuheld) then 
: 4 | 1$9¢ ee scr$put_screen(describe("'(HAS YOU HELD)'),.folpub_w_viewl ine] ,66) 
; 44 1696 2 scr$erase_line(.fplCpub_w_viewline],66); 
; 98 1298 3 return; 
; 98 it 94 
; 6984 1500 1 end; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


ecu! 


29 44 4C 45 


20 20 20 20 


| 2 4 4 


; Routine Size: 


TERMINAL = Terminal Handlin 


PHNSFRESH_HOLD 
48 20 45 56 


20 20 20 20 


45 48 20 55 


40 


OE 


00 


84 bytes, 


Routines 1 
- Display Hold Indicators 1 
41 48 20 55 4F 59 28 ite 
SHER, 88 
20 20 20 20 20 8 6 BREE 
4 pork 
ae 010 
4F 59 20 53 41 48 2 0104 
00112 
44 44 00114 
00000000' 00118 
001C 00000 
54 000000006 00 oF 00002 
52 04 AC 00 00009 
0000G CF 01 EC 0000D 
01 DD 00013 
53 OOFE ge 3C 00015 
53 DD OOOIA 
07 OOFO C2 5 0001C 
50 0000" CF 9€E 00021 
05 11 00026 
50 0000' CF 9€ 00028 
50 DD 0002D 
64 03 FB ere 
OOFO C2 01 €1 00032 
7E 42 8F 9A 00038 
53 DD 0003C 
0000" CF 9F O0003E 
64 03 FB 00042 
04 00045 
7E 42 8F 9A 00046 
53 DP O004A 
0000006 00 02 FB 004C 
04 00053 
Routine Base: S$CODE$ + 05C3 


3 
“Sep-19 
27 800-138 

A 


nm 
A 


WN 
wn 


= 
w 


mH 


«ASCII \CYOU HAVE HELD)\ 
-BLKB 


ow 
. 

> 
> 
© 


H 


>> 
> 


s 
S YOU HELD)\ 


=[——- ——sT-rlUC OO 
=~ -~vW 


*LON 
“ADDRESS P.AAU 


PSECT $CODES$,NOWRT,2 
.ENTRY PHNSFRESH_HOLD, Save R2,R3,R4 
MOVAB SCRSPUT_SCREEN, R4 
MOVL FRESH POB, R 
BBS #1, PANSGB_FLAGS, 4$ 
PUSHL # 

MOVZWL 254(R2), R3 

PUSHL 

BLBC  240(R2), 1$ 

MOVAB P.AAP, RO 

BRB 2 

MOVAB P.AAR, RO 

PUSHL 

CALLS #3, SCRSPUT_SCREEN 

BC #1. 240(R2)7 3$ 

MOVZBL #66, -(SP) 

PUSHL R3 

PUSHAB P.AAT 

CALLS #3, SCRSPUT_SCREEN 
MOVZBL #66, -(SP) 

PUSHL R 

CALLS #2, SCRSERASE_LINE 


AX=-11 Bliss-32 V4.0-742 
PHONE. SRCJTERMINAL.B32;1 


TER 
VO04 
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SHOW_TEXT = Display Text om Screen 1e-8ep-19 4 95:38:42 PHONE .SRCITERMINAL .B325 1 malty se vou 


ech 


oe Rsbttl *PHNSSHOW_TEXT = Display Text on Screen’ 

988 ! Functional Description: 

989 This routine is called to display text on the screen, It can be 

990 passed the address of a PUB describing the viewport in which the 

991 text is to be displayed. It can also be passed an address of zero, 
44 n which case the text is displayed on the command Line. 

994 Formal Parameters: 

995 display_pub The address of the PUB describing the viewport to 
996 contain the text (viewport parameters are assumed to 
997 be filled in). An address of zero means the text 
998 gece on the command Line. 

64 text ddress of the descriptor of the text. 

001 Implicit Inputs: 

00 global data 


ooo 


Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


ee ee 


global routine phn$show_text(display_pub,text): novalue = begin 


bind 
dp = .display_pub: pub; 


local : 
text_dsc: descriptor, 
char: byte, 
c: ref ctl, : 
lLatest_line_dsc: ref descriptor, 
cursor_pos: vector(2,longl], 
word_wrap: byte; 


builtin 


Ok kt kk a dd td OH 
WWWAANNAAANN LAWN ANNNN A WNWNNANANNAWNWA NNN NA en 


BEEBE EWAN NNN POPPY REPYININIDY 2 2 OO OS S SS DOOOCOCOCOCOCO 2X 
FUN O OONOUME WN O OONOAUES WN S(O OONOUES UN OOONOUFS wr FE 


ee i ee ee el el ee el el ll el el el el el el ed el ed el ee ed 
fololelelelelelelelelelelelelelelelelelelelelelelelelo) 
POPORIMIPINIPYININPIPINPINDININYNY —* tt ot 8 tt 


Tas baba nuns eae 
OWBNOULS WN “O OONOUVLS WN “OOD ONOUS 


nullparameter; 


d 3 
TERMINAL ERMINAL = Terminal Handling Routines 16-Sep-1984 18:45 AX-11 Bliss-32 V4.0-742 Page 36 
Voe000 HNSSHOW TEXT = Display Text on Screen 1o-08-138 9:4 234 PHONE ..SRCJTERMINAL .B32;1 . 18 
1031 45 ' This routine is called from the screen update logic. It determines the 
‘3 ' Length of the last word in the text and returns that length. This 
4 ! information is needed when we are to word-wrap or delete the last word 
: rk ! on the Line. 
29 routine lasi_word(text) = begin 
26 bind 
5 text_dsc = .text: descriptor, 
re text string = .text_dsc(ptri: vector(,bytel; 
28 local 
2 i: long; 
38 
60 ! First we scan backwards for the last non-blank in the text. This marks 
$0) ! the end of the last word. 
368 | 


cr i from .text_dscClenJ-1 to -1 do ( 
-i eql -1 then exitloop ot; : 
-text_stringl.iJ nequ * * then exitloop .i; 
); 


| 
! Now we scan backwards for the preceeding blank in the text. This marks 
! the beginning of the Last word. 


i eql -1 then exitloop a 
text_stringl.i] eqlu * * then exitloop .i; 


FRRRRARRAPARAR RRR ERR RR RR MISS 
WN CO ODNOAUE WN O ODBNAUES WN O00 wr 


cr i from .i to -1 do ( 


! Return the Length of the last word. 


SESEz 


return .text_dscClen] - .i = 1; 
end; 


ek ek et a tn = “a = 8 “a 8 a = 
aaa a a a a tt a a a od td = wt a a = wo 


PROAAAAA NNDB NANA & NIAAA NIAAA AIIIInny 
~. 
" 
- 


bet eet PR ERNE OS TH BN 
WN — SO OCONOUESWN—OO@Onou 


: 


0004 00000 LAST_WORD: 


ORD Save R2 3 7 29 
52 04 AC 20 00002 OVL TEXT, R2 > 1353, 
5 62 3C 00006 MOVZWL (R2). I :1 
OF 11 9009 RB 3$ : | 
07 «13 6 OB 1$ BEQL 28 ; 1365 
20 04 B240 91 900 CMPB =-«a@4‘R2)C1], #32 ; 1366 | 
99 13 0001 BEQL 38 ; 
51 0 pd 00014 28 MOVL I, I : 
g 11 00017 BRB 4$ ; | 
D7 00019 3$ DECL sd : 1364, 
FFFFFFFF © 8F 50 D1 00 18 CMPL #1 ; 
E7 18 0002 BGEQ § ; 


3 | 
TERMINAL TERMINAL = Terminal Handling Routines 1b-5e -1984 02:18:45 AX-11 Bliss-32 V4.0-742 Page 37. 
Voe~000 PHNSSHOW_TEXT = Display Text on Screen 1 ~30071 387 95:38:92 PHONE. SRCITERMINAL .B325 1 . «135 
2 91 C 4 MNEGL #1, I ; 
0 1 8 7 4$: MOVL I 3 1374. 
19 A BRB § : 
07 1 C 5$: BEQL 6$ : 1373 | 
20 04 ben) 91 CMPB ge (Re) CII, #32 3; 1376) 
is BNEQ $ 3 
51 0 OD 6$: MOVL I 3 
11 BRB $ : | 
D7 A 7%: DECL I 3; 1374. 
FFFFFFFF 8F D1 0 8$: CMPL d #-1 ‘ 
F718 0004 BGEd 65S : | 
2] 1 ge BRE MNEGL #1, I 3 
$2 ¢ 48 9$ MOVZWL (RO), R2 > 1382 
3 1 C2 00048 SUBL2 I, Re ; 
72 YE O004E MOVAB =(R2), RO 3 
04 00051 RET 3; 1383 
; Routine Size: 82 bytes, Routine Base: S$CODE$ + 0617 
: 1070 1384 
: 1071 138? 
; Ore 1386 § local 
; 107 1387 local_described buf fer(screen_buf,1024); 


SS ————— SE CO Owner 


De Se Se Oe Se Se Oe SH Se Se Se Se SH Se Se Se Se Se Se Se Se oe SH Fe Se Se Se Se Se Se Se Se Se Se Se Se SH Se Se See Se ee Se Se Se Hee ae 


phn$fresh_screen(true); 
tes; 


); 


return; 


ee. 
TERMINAL TERMINAL = Terminal Handling Routines 16-Sep-1984 02:18:45 AX-11 Bliss-32 V4.0-742 Page 38 
voen000 PHNSSHOW_TEXT = Display Text on Screen 1o=808- 1382 95:38:42 PHONE .SRCJTERMINAL.B32;1 ’ (16) | 
; 1075 1 S ! We initialize by copying the descriptor of the text because we are going 
; 197 : 2 ! go clobber it. 
; 1378 : 4! ch$move(8,.text,text_dsc); 
: 1080 1 38 ! Now we see if we are to display text on the command line. If so, we 
; 198) : 8¢ ! process each text character and handle it appropriately. 
; 1088 : 38 if nullparameter(1) then ‘ 
; Hs : is ? while dec (text_dscClen]) geq 0 do ( | 
; 108? e's 2 char = ch$rchar_a(text_dsc(ptr]); 
; 1089 1408 4 electoneu . rer of set | 
: 1090 1408 4 ix! 20: to ix'7e! | 
; 1091 1404 4 %x'80" to %x'ff'd: 
: 1998 1406 4 ' We have a normal character. Place it on the | 
3 oe pet 2 ! command Line and advance the cursor position. 
: 1096 1409 5 (Local | 
; Had seu8 : char_dsc: descriptor; 
: 1099 141g. 5 char dscf0,0,32,03 = 1; | 
; 1100 1415 5 char_dsc ptrd = char; 
3 1101 1414 5 scr$put_screen(char_dsc,2,.command_line_pos); 
3 1358 1e32 ? command_Line_pos = minu(.command_line_pos+1,79);); 
5 1104 1417 4 (delete): ! We have a delete. Decrement the cursor 
3 BY 1218 : ! position and clear away the character. 
5 1107 1420 5 (command_line_pos = maxu(.command_line_pos-1,2); 
: 1108 1421 4 scr$erase_lLine(2,.command_line_pos);); 
: 116 1038 | 
: 111 1424 4 Cetrl_u. ' We have a CTRL/U. Reset the cursor to column 
3 1 1062 ? ! 2 and clear the Line. 
5111 1239 5 (command_line_pos = 2; 
311 1428 4 scr$erase_lLine(2,2);); 
at 1280 
: 11 Ht 4 Cctrl_wi: ! CTRL/W causes us to redraw the entire screen. 
3 11 14 4 4 
3 11 14 4 
s 11 14 4 
3 71 1435 4 
3; 1 14 
311 14 
311 14 
3 11 14 
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NOUSWN OOM 


PHONE . SRC 


! Oh my God! We have to display text in a participant's viewport. This 


e -Sep-1 

' 

is a very complex process, so 1 will try to comment well. 
! 

! 


TEXT = Display Text on Screen 1 


i Latest line_dsc will point to the Line text descriptor in the latest CTL. 
! It will always be updated so that is the case. 


= , dpfpub_g_ct (he d0J; 
atest_line_dsc = clctl_q_line]; 


! It is not always the case that we can update the screen in this rcutine. 
! If a scrolling-type command is in progress, we can't. If we can, though, 
' Let's allocate a butter for the screen package and position the cursor 

! at the current point. From now on, we will assume that the cursor is 

! dynamically updated. 


if not .phn$gv_scroller then ( 
scr$set_buffer(screen_buf); 
phn$view_goodies(dp,cursor Se 

scr$set_Cursor(.cursor_pos[0),.cursor_pos[1]); 


—* a. oh 


H 3 
TERMINAL TERMINAL = Terminal Handling Routines 16-Sep-1984 02:18:45 AX-11 Biiss-32 V4.0-742 P 40 
"800 PHNSSHOW_TEXT = Display Text on Screen 122868718 4 95:38 °32 PHONE. SRCITERMINAL B32: 1 29e 18) 
49 


_ 
> 
oa 
oO 


' Now we will look at the text character by character and update the CTL 

' buffers to reflect the new conversation. We always keep the CTL buffers 
! up-to-date so that if we ever have to refresh the screen y= after 

! someone hangs up the poy f we can do it directly from the uff 

! We won't indent this loop because it is so big. 


while dec (text_dscClen]) geq 0 do ( 
char = ch$rchar_a(text_dsc(ptr]); 


ers. 


electoneu gchar of set 
ix' Be to Ix'7e' 
%x'80" to Ix'ff'd: 


! We have a normal text character. What we do depends upon 
! whether it fits on the current Line or not. 


(word_wrap = .latest_line_dscClen] gequ 79; 
if .word_wrap then ( 


SANS Lar A 


WO DONO UE" OOOnoOu 


We can't fit it on this Line. Find the last word on 
the Line if there is one and remove it from the Line. 
Save rgeulting cursor position for later use. Make 
anew CTL with wrapped word. 


op cD CD CD ~ ~ NAPA O 


local 
word_dsc: descriptor; 


word_dsc(0,0,32,0] = last_word(.latest_line_dsc); | 
c 79° then 


if .word_dscllen) gegu 
word “, len] = 0; 
latest_line_dscClen] = .latest_line_dscllen] - .word_dscClen]; 


phn$view_goodies(dp,cursor_pos); : 

word_dscCptr] = .latest_line_dsc(ptr] + .latest_line_dscClen); 
, add_new_ctl(word_dsc); 
‘ 
' Now we can put the new character at the end of the (possibly 
' new) current Line. 


SSS S SOS SSS S3ESSeeSF 
WO OONOUE WN“ OOOnou 


ch$wchar(.char,.latest_line dsc(ptrJ]+.latest_line_dscClen]); 
inc (latest_line_dscllén]);J; 


Cret): ! We have a carriage return. Remember the current cursor 
! position for later. Add a new CTL with no text. 


oO 
w 


(phn$view_goodies(dp,cursor_pos); 
add new. ctl(0);); 


mw 
RELVLSSSLSSKIN LS SSVSALANV IS SSVS ARAN IASSSIFSAFERISSSIFEALUNLS 


Ctabj: ! We have a tab character. If we are not too far along on the 
! Line, we can honor it. Compute the number of columns to the 
! next tab stop and add that many blanks to the Line. 


ee a a a dd = nd = wd 2 
ee a dd ad ad 
PAPA AAAI BB PEEP EEEPEPPPPPPPPPPPPPPPPPP PPP PEPEEE 


BP WWII WWIII BB BB RN 


Qui kwn—-O0@ 


if .latest_line_dscClenJ+1 lequ 72 then ( 
local 


o 
w 


28 
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st a a — — Lag — as a 9» — as —) _s — _s as ss 9 


MPOPOPOPoNofofonononofnofono nyunony 


zz 
ez 
We 


IWWWIWAIWIonororororororonun) = 


CNC VSWR O OONAUE WN“ OCONO UE WN OO@on 


ermin 


- T bs 
TEXT = Disp 


Cdelete]: 


Clinefeed): 


Cetrl_ul: 


Cformfeed): 


Cad 
° 

v 

. 


3 
metiset bevatoes, —CHRECISREABMUSE Hau. utntd 


2 V4.0-742 
-$ep-1984 MINAL .832;1 
count: long; 


count = 8 = (.latest_line_dscllen] mod fe 


PHONE .SRCJTE 


ch$fill(® *,.count,.Tatest_line dsc(ptrJ+.l 


qtget, Sine, sack lenss 
latest_line_dscllen] = .lafest_Tine_dscllen] + 


-count; 
); 

! We have a delete character. Just decrement the Line Length. 
latest_line_dscClen] = max(.latest_line_dscClenJ-1,0); 

! We have a Line feed character, which means we are to delete 
! the Last word on the line. Just reduce the Line length by 

! the Length of the word. 


latest_line_dscClen] = .latest_line_dscClen] - last_word(.latest_line_dsc); 


! CTRL/U is used to clear the entire Line. 
latest_line_dscClen] = 0; 

' We have a CTRL/L. Add a mew CTL with no text, and remember 
! it as the new top of the viewport. 


(add_new_ctl(0); 
dp(pub_l~topctl) = .dpCpub_l_ctlcount];); 


3 
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39 49 ! Well, we have updated the CTL buffers. Now, if we are allowed to, we 
40 ? i should update the screen. This update logis is gered on the fact that 
41 ! the CTL buffers are already updated. Each bit of logic also assumes that 
4 § ! the cursor is positioned correctiy, which is why we positioned it in 
$7 i ! the initialization code. 
rb 5 if not .phn$gv_scroller then 
5 ele toneu cher of set 
8 x! to ix’ fe! | 
> %x'80' to Xx'ff'd: 
6? ! We have a normal character. What we do depends upon whether 
206 ! we word-wrapped or not. | 
564 if .word_wrap then ( 
29 _— 


3; 3 
3 3 
; 1 
6 1 
e 1 
3 7 
3% 
3 7 
3 7 
3% 
3 3 
o 1 
3; 7 
37 
3; 
3; 7 
a 1 
3 7 
3 7 
3 
3 7 
5 3 
3; 7 
3 Y 
3; 1 
34 
3 3 
3 
3 7 
3 3 
3 3 
3 1 
3% 
3 
| 
3% 
g 
3 1 
3 
3 7 
3% 
e 1 
3 7 
3 1 
3; 7 
3 7 
. ¥ 
3 7 
3 3 
3 3 
, 
37 
3 1 
3 1 
, 7 
3 7 
37 


ve word-wrapped. Clear the word from the end of the 
! ne. 


scr$erase_line(.cursor_pos(0],.cursor_pos(1)); 


! Now we have to place the wrapped word on the next 

! Line. If we are scrolling and are at the bottom 

! of the viewport, then scroll. Otherwise position 
! on the next Line and display the word. 


if .phn$gb_scroll_and 
(.cursor_posl0] gequ .dpCpub_w_viewline]+.dp([pub_w_viewsizeJ-2) then 
te phnSfresh_view(dp, false, false) 
else 


phn$view_goodies(dp,cursor_pos); | 
scr$put_screen(.latest_line_dsc,.cursor_pos(0J,1); 
scr$erase_line(); 


); 
) else ( 


! We did not word-wrap, so we can just display the 
' cnaracter. 


local ’ 
char_dsc: descriptor; 


char_dsc(0,0,32,0) = 1; 
char_dsc ptrd = char; 
, scr$put_screen(char_dsc); 


Cret]: 


DOOODOOOOO OCWWWWWOWWOOD NNN NNN NOOO 


! We have a carriage return. If we are scrolling and are at 
!' the bottom of the viewport, then scroll. Otherwise position 
' at the new Line. 


MOMOPOPONoPoNoPofnofnony 


PeBBSELES Pees La oN MUN ISS ERS OF ERTS See EN Te oe 


if gohnSeb scros} and ’ 
(.cursor_posl0] gequ .dpCpub_w_viewline]+.dpCpub_w_viewsizeJ-2) then 
phn$fresh_view(dp, false; false) 


me ee ee ed ds ed od dd od wvo~ 


SRN ee ee ee eww Pt at at ot et or et et oe et et ed asl sl ee oe et et et et et et oe et ee er 


Nn 
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41 PHONE .SRCJTERMINAL .B32;1 
3 3 38 16 4 else ( 
3: 129 16 4 phn$view_goodies(dp,cursor g s); 
; 1098 1608 4 scr$erase_line(.cursor_posl0J,1) | 
; 1299 1609 3 
; 1300 1610 
; 1301 1611 
3 : 4 1616 Ctabj: ! If we are not too far along on the Line, we can tab. 
; 1304 1614 if .latest_line_dscClen]+1 lequ 73 then 
; 1305 1615 scr$put_screen(describe(%char(tab))); 
; 1306 1918 
; 1307 161 
3; 1508 1618 Cdelete, 
3; 1309 1619 Linefeed, 
; 1310 1620 ctrl_ul: ! We have a character that deleted some text. Position to 
: ; \} Ys 1 ! the new cursor point and erase the rest of the Line. 
3 1 ig 16 : & Speer ren eed iees ee -cureer os); 
3 : \3 Yb : scr$erase_Line(.cursor_pos(0J,.cursor_pos(1]);); 
3; 1316 16 § 
5 Iai 19 Cformfeed): ! We are clearing the viewport. Just refresh all text Lines. 
3; 1319 1629 phn$fresh_view(dp, false,false); 
; 1350 1630 
3; 1321 1631 


22222 


fa kkk ok wk wk wk kw kk kk kk 


rwvuawas 
—<<3990 
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; 1323 1 § ' The bell character (CTRL/G) is a very special case, First of all, | 
; 1326 1 ' we don't save it in the CTL buffer, because then it will beep every 
: 1325 1634 ' time the v euport is sere’ et Secondly, we always want to display it, 
: : 8 1 5 ! even if a scrolling command is in progress. 
:1 8 16 5 if .char eqlu bell then 
: ; ; 19 3 scr$put_screen(describe(ichar(bell))); | 
3 : 1 Ho ! ALL done processing a character. Continue until all text is done. | 
i 133g 1642 2); | 
; 7 164 
3 1355 1644 | 
: : 194? ! Now we can put the buffer to the screen, if allowable. 
: 1338 1669 if not .phn$gv_scroller then 
: 1339 1648 scr$put_buffer(); 
: 1340 1649 
3; 1341 1650 return; | 
3 1 ¢ 1651 | 
3: 134 1652 1 end; 
-PSECT SPLITS$,NOWRT,NOEXE,2 
09 OO11C P.AAW: .ASCII <9> : | 
0011D -BLKB 3 | 
00000001 00120 P.AAV: LONG 1 F | 
00000000" 00124 ADDRESS P.AAW 3 
07 00128 P.AAY: .ASCII <?7> 3 
00000001 Bat C P.AAX: .LONG 1 F 
00000000" 00130 ADDRESS P.AAY F 
-PSECT S$CODE$,NOWRT,2 
58 FDBE CF 9 0000 v PHNSVIEW GOODIES, R11 : 
: rs ae 0900 + Alallmrs | op tog : 1333 
10 AE 0406 BF BC $01 MOVZWL Fook SCREEN_BUF : 1387 
14 AE 18 At 0016 MOV SCREEN RUF+8, SCREEN_BUF +4 3 
FB AD 08 BC 0 é 0018 MOVCS #8, aTEAT, TEXT_DSC > 1391 
6¢ 021 TSTB. CAP) : 1396 
08 13 000 BEQL 1$ 3 
04 A 1) 0 TSTL 4 (AP) : 
05 1 0 BEQL 1$ 3 
OOA ; O2A RRwW 12$ ; 
50 FB OA ¢ 02D 1$: MOVZWL TEXT_DSC, RO 3; 1398 
i) 1 DECL R ; 
FB AD 8 3 ; MOVW RO, TEXT_DSC : 
DS 00 TSTL RO 3 
01 18 00039 BGEQ 2s 5 


4 3 
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gf 4 RET : 
04 AE FC BD 90 c 2$ MOVB aTEXT_DSC+4, CHAR + 1400 
FC AD p6 4 INC TEXT_BSC+4 : 
50 04 AF A 00044 MOVZBL CHAR’ R + 140 
20 560 91 00048 CMPB RO, #32 + 140 
06 1F O48 BLSSU) 3 ; 
7E oS 91 00040 CMPB sO, #126 : 
1B 0005 BLEQU 4$ : 
80 8F 91 00053 3$: CMPBSséRO, #128 : | 
1F 0005 BLSSU  7$ : 
08 AE 01 DO 00059 4s: MOVL #1, CHAR_DSC : 1412 
OC AE 04 AE 9E 9090 MOV CHAR, CHAR DSC+4 + 141 
0000' i DD 0006 PUSHL  COMMAND_LIRNE_POS + 1414 
2 DD 00066 PUSHL #2 : 
10 AE 9F 00068 PUSHAB CHAR_DSC ; 
000000006 00 03 FB 9006 CALLS #3, SCRSPUT_SCREEN : 
0000" CF 01 ¢1 000 ADDL3 #1, COMMAND-LINE_POS, RO + 1415 
Q000004F &F 50 01 0007 CMPL = RO, #79 : 
04 1B 0007F BLEGU 5$ ; 
50 4F BF 9A 00081 MOVZBL #79, RO ; 
0000' CF 50 D0 90085 5$: MOVL RO, COMMAND_LINE_POS ; 
Al 11 OOOBA 6$: BRB + 1402 
7F soa 50 91 0008C 7$: CMPB—saRO,-#127 + 1417 
19 le 00090 BNEQ 9 ; 
50 0000" CF 01 ¢ 00098 SUBL3. #1, COMMAND_LINE_POS, RO + 1420 
02 50 01 9009 CMPL = RO, #2 ; 
03 1€ 00098 BGEQU 8$ ; 
50 02 DO 00090 MOVL #2, RO ; 
0000" CF 50 DO OOOA0 8$ MOVL RO, COMMAND_LINE_POS F 
0000" CF DD OOOAS PUSHL COMMAND_LINE_POS 3 1421 
0c 11 000A9 BRB $ : 
15 50 91 OOOAB 9$ CMPB ss RO, #21 t 1424 
12 12 OOOAE BNEQ 11% : 
0000" CF 02 v0 90080 MOVL § #2, COMMAND_LINE_POS + 1427 
02 DD 0085 PUSHL # + 1428 
02 DD 000B7 10$: PUSHL # ; 
000000006 00 08 FB 00089 CALLS #2, SCRSERASE_LINE ; 
C8 11 000C0 BRB : 1402 
17 50 91 000C2 11$: CMPB RO, #23 > 1431 
C3 12 000C¢ BNEQ 6$ : 
01 DD 000C¢ PUSHL #1 + 1433 
FEO! CB 01 FB 000C9 CALLS #1, PHNSFRESH_SCREEN ; 
BA 11 000¢ BRB é : 1398 
59 0104 C8 3 990 12$:  MOVAB 260(R8), R9 + 1446 
6E 69 D D MOVL (R9), C : 
56 6E£ 10 C1 00008 ADDL3 #16, C, LATEST_LINE_DSC + 1447 
1D 0000G CF 01 60 000 S #1, PHNSGB_FLAGS, 13$ : 1455 
10 AE OF OE? PUSHAB SCREEN BUF : 1456 
000000006 00 01 FB OO0E CALLS #1, SCRSSET_BUFFER : 
FO AD 9F OOOEC PUSHAB CURSOR_POS + 1457 
58 DD OOOEF PUSHL : 
68 02 FB O00F1 CALLS #2, PHNSVIEW_GOODIES ; 
7E FO AD 7D 000F4 MOVG yRso OS, =(SP) + 1458 
000000006 00 02 FB 000F8 CALLS #2, SCRSSET_CURSOR ; 
0 F8 AD 3¢ FF 13% MOVZWL TEXT , RO + 1466 
20 D 0195 DECL F 
F8 AD B0 001 MOV) RO, TEXT_DSC ; 
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9 ; 109 TSTL RO : | 
108 BGEQ 14$ : 
022C 31 001 BRW 48$ : 
04 AE FC BD 90 00110 148 MOVB  aTEXT_DSC+4, CHAP + 1468. 
FC AD 6 11 INCL TEXT BSC : 
52 04 AE A 0011 MOVZBL CHAR’ R + 1470 
52 91 O011C CMPB Re #32 + 1471 
0 1F OF BLSSU-15$ : 
7E oF 91 00121 (NPB. OR? #126 : | 
: 18 001 3 BLEQU 168 : | 
80 8F 91 00127 15$: CMPB  R2, #128 : 
é 1F o1 B BLSsU 208 hel 
0 D4 0012D 168: CLRL R + 1477 | 
004F 8F 66 B1 O012F CMPW = (LATEST_LINE_DSC), #79 : 
02 TF 00134 BLSSU 178 : 
5 ps 00136 INCL RO ; 
SA 50 90 00138 17$:  MOvB RO, WORD WRAP : 
41 SA E9 00138 BLBC D WRAP, + 1478 
56 DD 0013E PUSHL HOTESt ‘The Bsc : 1488 
O1EA CB 01 FB 00140 CALLS #1, LAST_WORD : 
08 AE 50 D0 00145 MOVL RO, WORD DSC F 
O04F 8F 08 AE B1 00149 CMPW WORD_DSC> #79 + 1489 
03 1F OO14F BLSSU 188 : 
08 AE B4 00151 CLRW WORD_DSC : 1490 
66 08 AE A2 00154 18$:  SUBW2 WORD ace « (LATEST_LINE_DSC) + 1491 
FO AD 9F 00158 PUSHAB CURSOR_ + 1492 
58 DD 00158 PUSHL ; 
6B 02 FB 0015D CALLS PUNSVIEW. GOODIES ; 
50 66 3C 00160 MOVZWL He areet LINE~DSC), RO + 1493 
Oc AE 04 B640 9E 00163 OVAB Wa “_LINE_DSC)CROJ, WORD_DSC+4 F 
SE DD 00169 PUSHL + 1494 
OC AE 9F 0016B PUSHAB ; 
00006 CF 02 FB 00166 CALLS Wn "BsmaKe CTL : 
69 00 BE OE 0017 INSQUE aC, (R9 : 
0100 C8 D6 00177 INCL.  256(R8) : 
56 6E 10 C1 0017B ADDL3 #16, C, LATEST_LINE_DSC : 
50 66 3C OO17F 19$:  MOVZWL (LATEST_LINE DSC), RO : 1500 
50 04 A6 CO 00182 ADDL2 4 (LATEST _LINE_ Bscs, RO : 
60 04 AE 90 00186 MOVB CHAR eh ; 
66 B6 O018A INCW (LATEST _LINE_DSC) > 1501 
7C 11 0018C BRB 5 : 1470 
1) °2 91 0018E 20$:  CMPB  R2, #13 + 1504 
i, 12 00191 BNEQ : 
FO Ap OF 00195 PUSHAB CURSOR_/0S + 1507 
58 DD 0196 PUSHL : 
68 02 FB 0019 CALLS #2, PHNSVIEW_GOODIES : 
SE DD 00198 PUSHL : 1508 | 
7E D4 90190 CLRL. (SP) ; 
00006 CF 02 FB 0019F CALLS #2, PHNSMAKE_CTL ; 
69 00 BE OE 001A4 INSQUE @ ; 
0100 CB D6 001A8 INCL “ &(R8) : 
56 6E 10 ¢1 OO1AC ADDL3 a3 C, LATEST_LINE_DSC ; 
61 11 00180 BRB es + 1470 
09 32 91 0182 21$ CMPB Ree > 1511 
1 12 0018 BNEQ 226 F 
50 66 3¢ 00187 MOVZWL host LINE_DSC), RO : 1515 
50 06 0O1BA INCL R : 


| 
| 


td 
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00000048 = &F 50 D1 0018 CMPL RO, ~—#72 : 

? 6 4 Olt Sey SUL (CATE T_LINE_DSC), R7 : 1519 
ze 00 2s 1 i 168 EMUL RP ry 235) : 
5 57 BE 2 ‘8 01D DIV ma, { , pre," a7. R7 : 

57 0 ¢ 0102 SUBL UNT : 
50 bs ¢ 0106 MOVZWL ttArest tthe DSC), RO + 1520 
50 04 Ab ¢ 00109 ADDL TEST L DSCs, RO : 
57 20 6E 09 C 0100 MOVC roe = ANS COUNT, (RO) : 
66 57 AO Sieg ADDW2 COUNT, (LATEST_LINE_DSC) + 1521 
46 11 O16 RB 29$ + 1515 
7F oF 52 91 OO1E8 228: CMPB ss R2, #127 + 1525 
0D 12 OO1EC NEQ 24$ ; 
50 66 3C OO1EE MOVZWL (LATEST_LINE_DSC), RO + 1527 
02 0 F4 OO1F1 SOBGEQ RO, 23$ : 
50 D4 001F4 CLRL. — RO F 
66 50 BO 001F6 23$: MOVW RO, (LATEST_LINE_DSC) ; 
3B 611 001F9 BRB 9 : 
OA 52 91 OO1FB 248: CMPBsR2,, #10 t 1530 
OC 12 OO1FE BNEQ 6$ : 
56 DD 00200 PUSHL LATEST_LINE_DSC + 1534 
O1EA CB 01 FB 00202 CALLS #1, LAST : 
66 50 A2 00207 SUBW2 RO, (LATEST_LINE_DSC) : 
2A 11 OO20A 258: BRB 29 F 
52 91 0020C 26$: CMPBsR2, #21 : 1537 
04 12 0020F BNEQ § ; 
66 B4 00211 CLRW (LATEST_LINE_DSC) + 1539 
21. 11 00213 27$: BRB : 
0c 52 91 00215 28$: CMPBeéR2, #12 + 1542 
1€ 12 00218 BNEQ  29$ : 
SE DD OO21A PUSHL SP t 1545 
7E D4 dogi¢ CLRL. = SP) ; 
00006 CF 02 FB al CALLS #2, PHNSMAKE_CTL F 
69 00 BE OE 0022 INSQUE ac, ( ; 
0100 C8 06 00227 INCL  256(R8) : 
56 66 10 C1 00228 ADDL3 #16, C LATEST LINE_DSC ; 
Oluc 68 0100 CB dO 002eF OVL  256(R85, 268(RB) + 1546 
58 00006 CF 01 £0 00236 298: BS #1 PHNSGo. nes. 33$ : 1555 
50 04 AE 9A 0023C MOVZBL CHAR, RO : 1557 
20 50 91 00 40 CMP8—sRO #35 : 1558 
06 1F 034 BLSSU 308 ; 
7E oS 50 91 00245 CMPB Es RO, #126 : 
96 1B 00249 BLEQU 31$ ; 
80 BF 91 00248 30$: CMPB R0 #128 : | 
56 (1F O0O4F BLSsSu -35§ ; | 
45 SA 59 00251 31$:  BLBC WORD WRAP > 1564 
7E FO AD 7D 00254 MOVG RSOR_ POS, -(SP) : 1569 | 
000000006 00 02 FB 0258 CALLS #2, SCRSERASE_LINE ; | 
| 16 0000G CF 025F BLBC PHNS$GB_SCROLL> 32$ : 1576 | 
5 OOFE CB 3C 00264 MOVZWL (R8J, RO : 1577. 

1 OOFC c8 0269 MOVZWL 252(R8), RI : 

0 1 ¢ oF ADDLg Ri, RO ; 

0 02 C SUBL #2, R ; 

50 FO AD OD 74 CMPL URSOR_POS, RO ; 
48 IE 00078 BGEGU 36 : | 
FO AD OF 7A 32$: | PUSHAB CURSOR_POS ; 1580 | 
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58 DD 00270 PUSHL R : | 
68 6 FB OOe7F CALLS #2, PHNSVIEW_GOODIES : 
DD Be PUSHL # + 1581) 
FO AD ODD 0 PUSHL  CURSOR_POS : | 
36 DD 7 PUSHL LATEST-LINE_DSC : 
000000006 00 FB 00289 CALLS #3, SCRSPUT-SCREEN : 
000000006 00 0 re 0 g CALLS #0, SCRSERASE_LINE > 1582 
F 11 0029 335: BRB 43$ + 1564 
08 AE 01 00 09 99 34$:  MOVL #1, CHAR_DSC : 139¢ 
OC AE 04 AE 9E 00290 MOVAB CHAR, CHAR_DSC+4 : 159 
08 AE 9F 002A PUSHAB CHAR_DSC + 1594 
43 11 002A BRB 9$ : 
0D 50 91 O00A7 35$:  CMPB RO, #13 + 1598 
27 lg O2AA BNEQ : 
16 00006 CF 00 AC BLBC § PHNSGB_SCROLL, 37$ > 1603 
50 OOFE CB 3C 00281 MOVZWL 254(R8), RO > 1604 
51 OOFC c8 C 00286 MOVZWL 252(R8), R1 : 
50 1 C6 00288 ADDL2 1, RO : 
50 02 C2 002BE SUBL2 #2, RO : 
50 FO AD D1 002C1 CMPL  CURSOR_POS, RO : 
58 ‘iE 002CS 36$: BGEQU 4 ; 
FO AO 9F 002C? 37$: | PUSHAB CURSOR_POS + 1607 
58 DD OO2CA PUSHL RB F 
68 02 FB OO2cEr CALLS #2, PHNSVIEW_GOODIES : 
01 oD b0gct PUSHL #1 + 1608 
3B 11 00201 BRB 42$ : 
09 50 91 00203 38$: CMPB RO, #9 > 1612 
1B 12 00206 BNEQ 40$ F 
50 66 3C 00208 MOVZWL (LATEST_LINE_DSC), RO + 1614 
50 06 002DB INCL R ; 
00000049 = &F 50 01 002DD CMPL =O, #73 F 
42 1A 00264 BGTRU 46$ : 
0000" CF 9F 00266 PUSHAB P.AAV > 1615 
000000006 00 01 FB OOCEA 39$: CALLS #1, SCRSPUT_SCREEN : 
35 11 O02F1 BRB > 1614 
OA 50 (91 O02F 40$:  CMPB RO, #10 : 1618 
0B 13 002F6 BEQL 84 : 
15 50 91 002F8 CMPBSséRO, #21 ; 
06 13 O02FB BEQL 4 : 
7F OF 50 91 002FD CMPBSséaRO, «#127 F 
17 12 00301 BNEQ 44 ; 
FO AD 9F 00303 41$: | PUSHAB CURSOR_POS + 1623 
| 58 DD 00306 PUSHL R ; 
68 02 FB 99 08 CALLS #2, PHNSVIEW_GOODIES F 
F4 AD DD 00308 PUSHL  CURSOR_POS+4 > 1624 
FO AD DD 00 OF 42$:  PUSHL CURSOR POS ; 
000000006 00 2 FB 0031 CALLS #2, SCRSERASE_LINE : 
F 11 00318 43$: BRA 465 : 1557 
0c 91 OO31A 448:  CMPS RO, #12 + 1627 
09 12 00310 BNEQ 46$ ; 
7C OO31F 45$:  CLRQ (SP) > 1629 
58 DD 00321 PUSHL Rg : 
00DD £8 03 FB H CALLS #3, PHNSFRESH_VIEW : 
06 AE 91 46$:  CMPB CHAR, #7 : 1637 | 
0B 12 C BNEQ 4 F 
0000" cf 9F 00 5 PUSHAB P.AAX > 1638 
900000006 00 1 FB 00 CALLS #i, SCRSPUT_SCREEN | 


} 

dD 4 
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FDCs 31 00350 478: BRU 138 1466 | 

7 G CF i EO 033 48$: BBS PHNS$GB_FLAGS, 49$ | $6 

ooooveses $6 t8 Ss sos, ate #0. SCNECDT “BUFFER : 1668, 


; Routine Size: 842 bytes, Routine Base: $CODE$ + 0669 


” one 


_— 


PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 


(be he be bs be Fe ee oe be 
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rs 33 tsbttl "PHNSSCROLL_PREP = Prepare to Scroll Information’ 

55 Functional Description: 

2 This routine is called when a command wants to begin scrolling 

5 information onto the screen. A command Like HELP scrolls info 

28 re oe screen beginning at Line 5 and lasting for one or more 

es. 


Formal Parameters: 
heading Address of descriptor of heading Line to be 
placed on Line 5. Optional. 


global data 


DOP 


Implicit Outputs: 


o 
VIEW —OOONOUE WN OVOONOuM 


global data 
' Returned Value: 
a 


Side Effects: 


o 
~N 


i 
i 
i 
i 
i 
i 
i 
i 
i 
Implicit Inputs: 
i 
i 
i 
i 
i 
! 

i 
i 

i 
= 


3 


global routine phn$scroll_prep(heading): novalue = begin 


! Erase the screen beginning at Line 5. 
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nullparameter; 
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6 
re scr$erase_page(5,1); 
1 rt ! If we are to display a heading, do so. Position cursor at line 7. 
: 691 if not mt Lgerenevert? then 
$e 236 scr$put_line(.heading,2); 
86 694 ! If this is a VT100, it will look a lot sexier if we don't scroll off 
44 $2? ! the top of the screen. 
389 $35 scr$set_scroll((if nullparameter(1) then 5 else 7), 24); 
390 698 
$3 699 return; 
3 700 
39 701 end; 
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0000 00000 ENTRY PHNSSCROLL_PREP, Save nothing ; 1679 
1 OD BeoE PUSHL #1 ; 1687 
5 DD 00004 PUSHL #5 : 


F 4 
TERMINAL TERMINAL = Terminal Handling Routines 16-Sep-1984 02:18:45 AX-11 Bliss-32 V4.0-74 
Voe-000 PHNSSCROLL_PREP = Prepare te Scroll Information 1 730071382 95:38:32 PHONE. SRC TERMINAL 85201 


000000006 00 2 F CALLS #2, SCRSERASE_PAGE 
f 9 D TSTB (AP) 
1 f BEQL 5 
04 AC D 1 TSTL  4( AP) 
O¢ 1 14 BEQL Ss 
06 Ae bb 0001 PUSHE HEADING 
000000006 00 05 FB 0001 CALLS Hs SCRSPUT_LINE 
18 D 0 1$ PUSHL #24 
6¢ 9 TST (AP) 
13 000 6 BEQL © 2$ 
04 AC D 09 TSTL 4(AP) 
04 1 B BNEG 3$ 
05 DD 00020 2s: PUSHL #5 
0@ 11 0002F BRB 4$ 
07 DD 00031 3s: PUSHL #7 
000000006 00 02 FB 00033 4$: CALLS #2, SCRSSET_SCROLL 
04 0003A RET 


; Routine Size: 59 bytes, Routine Base: S$CODE$ + 0983 
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4 
TERMINAL TERMINAL = Terminal Handling Routines 1hese -1984 02:18:45 AX-11 Bliss-32 V4.0-742 Page 52. 
Vien b00 PHNSSCROLL_LINE = Scroll lige Onto Screen 127808- 1382 95:38:92 PHONE. SRCITERMINAL .B3251 . (235 
H : 95 1? ¢ ! Bsbttl *PHNSSCROLL_LINE = Scroll Line Onto Screen’ 
: 1 3 1704 1! Functional Description: 
3 1 28 1705 1! This routine is called to scroll a Line of information (e.g., HELP) 
3 1 17 $ 1! onto what is normally the viewport area of the screen. The area 
3 e's if ‘ : must have been previously prepared by PHNSSCROLL_PREP. 
: 1408 1709 1 | Formal Parameters: 
: Atos 17l9 ! Line Address of descriptor of Line to be scrolled. 
: 1405 71g i Implicit Inputs: | 
1209 he 4 i an oe | 
; 1408 1715 1°! Implicit Outputs: 
; ret 4 78 : global data | Ptl 
: 141) at i Returned Value: | py 
: 1218 1790 1 | 0%, | PLI 
; 1614 17 1 1 | Side effects: pi 
: 1416 17 : 1 jee | PLI 
3 141 1724 1 PLI' 
: 1418 1725 1 | PLI 
3 1st if $ global routine phn$scroll_Line(Line): novalue = begin at 
> 1421 1728 PLI 
3 2 2 Af , ! Just display it with a carriage return/Line feed. ori 
¢ 2 | 
: ios V7 1 scr$put_line(.line,1); 4g 
: 1426 1533 return; PLI 
: 1427 1734 PLI' 
: 14628 1735 1 end; PLI 
PLI' 
PLI' 
PLI 
| PL 
0000 00000 -ENTRY PHNSSCROLL_LINE, Save nothing 3 1736 | PLI 
01 oD 00002 PUSHL #1 ; 1731) 
04 AC DD 00004 PUSHL Lie 3 
000000006 00 02 FB 00007 CALLS #2, SCRSPUT_LINE 3 
04 O000E RET 3 1735 | 


Routine Size: 15 bytes, Routine Base: SCODE$S + O9EE 


16g8 1736 (1 
1430 1737 0 end eludom 
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-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 


TERMINAL TERMINAL = Terminal Handling Routines on$¢ -1984 AX-11 Bliss-32 V4.0-742 
Voenb00 PHNSSCRO SLL L.LINE = Scroll Like Onto Screen 1b-sen-1984 98: 48: $2 PHONE .SR RCITERMINAL 83251 


3 Name Bytes Attributes 

: SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, (CON,NOPIC,ALIGN(2) 
: $PLITS - gM Nov c ;NOWRT, RD .NOEXE.NOSHR, LCL, REL. CON.NOPIC,ALIGN(O) 
: $CODE C{NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Beene ieee ae ce ee Symbols -------- Pages Processing 

; File Total Loaded Percent Mapped Time 

: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 25 0 581 00:00.8 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$: TERMINAL/OBJ=OBJ$: TERMINAL MSRC$: TERMINAL/UPDATE=(ENHS$: TERMINAL) 


; ag 2557 code _+ 337 data bytes 


s phan Time: 01 FF :8 
3; Lines/CPU Min: 344 

3 ponenes/cPu-aie: 30087 

5 "Y Used: 260 pages 
; —_ ation Complete 
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